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1.0 ABSTRACT 


This program was created to test PDP-11's CPU interface circuitry. It 
uses the Unibus Exerciser(s) (UBE) to insure proper operation by 
simulating peripherals which would require the 11-CPU to produce the 
necessary signals. It should be noted that the UBE is a powerful tool 
— if it is not programmed correctly could cause various problems on 
the Bus. 


2.0 REQUIREMENTS 


.1 Hardware 


This program assumes the following in proper working condition: 
1. The Unibus, 2. Memory (8K minimum), and 3. UBE(s) (4 maximum). 
If a fourth UBE is being used, its time delay should be set at 100us 
to prevent latency problems in one of the tests. 


ith two or more UBE(s), all should have W1 jumpers except the one 
furthest electrically from the CPU. If there are more than 4 UBE(s) 
on the Unibus the program is not responsible for any problems which 

ight occur , since it is programmed to handle a maximum of only 4. 


2.2 Software 


fter loading the program the agape address must be 200, so that 
the first time through, the available UBE(s) are determined. In 
addition if one or more UBE(s) are added or removed, the program again 
ust be started at 200. Otherwise, to avoid duplicating some 
printouts, the program can be restarted at address 220. 


AEAAAAAAAAAAAAAATA AAT AATA THEE AAA KE ee eee eee eee ee eeeee 

A SOFTWARE HALT CAN BE CAUSED BY DEPRESSING CONTROL-H ON THE CONSOLE. 
IF THE PROGRAM IS HALTED THIS WAY, AND THE PROGRAM IS RESTARTED, 
DEPRESS ANY CONSOLE KEY TO REMOVE THE SOFTWARE HALT CONDITION. 


LRA RBBB RASAASAASAARALELESESEALASSESESES ERE SESE SESE SESE AES SY 


3.0 PROGRAM DESCRIPTION 


a program was assembled with MACY11 using PDP-11 Maindec Sysmac 
package . 


SEQ 0003 





SEQ 0004 


thes program on processors having a software switch 
register necessitates operator interaction: the operator must set up 
location 176 with the switch register values desired . 


Switch Use 


oa 


Halt on Error 

Loop on test 

Inhibit error typeouts 

Inhibit iterations 

Bell on error 

Loop on error 

Loop on test in SWR<5:0> 

If you wish to inhibit all typing except ‘‘end of pass'' 
you must put down switch 7, after loading 200. 
6 WHEN SET, INHIBIT TEST 14 


1 through Test 16 


No Bus grants issued with processor at higher priority than 
bus request. This test is to insure that any request is not 
honored as long as the processor is at the same or higher 
priority. 


Issuing of non-processor grants and arbitration tests. This 
test will request on NPR through BR4 Levels with the 
processor status initially at level 7 and make sure the 
device exercises an NPG to do a fun I-dati, then the 
requests will be repeated while sequentiall lowering the 
processor status from 7 to 0 to allow arbitration of all 
requests and the issuing of NPG. 


Issuing of Bus grant 7 and arbitration tests. This test 
will arbitrate for a BG7. The requests will be on levels 
BR7 thru BR4, doing fun 1-dati transfers, and the processor 
status lowered sequentially from 7 to 0. 


Issuing of Bus grant 6 and arbitration tests. This test 
will arbitrate for a BG6, the requests will be on levels BR6 
thru BR4, doing fun i-dati transfers, and the processor 
status Lowered sequentially from 6 to 0 


Issuing of Bus pene 5 and arbitration tests. This test 


will arbitrate for a BGS, the requests will be on levels BRS 
thru BR4, doing fun i-dati transfers, and the processor 
status lowered sequentially from 5 to 0 








TEST 


TEST 


TEST 


TEST 


TEST 


TEST 


TEST 


TEST 


10 


11 


12 


13 


14 


15 


16 


THIS TEST IS SKIPPED ON MACHINES THAT DON'T HAVE THE SXT INSTRUCTION 
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Issuing of Bus grant 4 and arbitration tests. This test 
will arbitrate for a BG4, the requests will be on level BR4, 
doing func i-dati transfers, and the processor status 
lowered sequentially from 4 to 0. 


CPU test for no sack time out. This test will check that 
the CPU times out and drops a grant if no sack signal is 
received. If the CPU time out 1S inoperative, the Bus 
exerciser will time out and send the sack signal to prevent 
a Bus hang and set an error flag in CR2. 


CPU test for a te sack. This test is to insure that 
the CPU can receive the sack signal; The time delay will be 
set on device 1 and several dati transfers made. If there 
is not bus late error, the CPU received sack correctly. It 
is assumed that dev 1 time delay is set for 10us. 


Passing of grants and interrupt test. This test will set 
off all available devices simultaneously whose only 
functions will be to interrupt, the requests will all be at 
level 7 so that the device closest to tha CPU should receive 
BG7 first and interrupt first, the next closest should 
interrupt next and so on. 


Address lines (14 = 17) check. This test will check Bus 
address lines 14 thru 17 by doing a fun 1-dati-npr to those 
addresses. If the addresses don't exist the interrupt 
routine will ignore any no ssyn error. 


CPU test for ACLO/DCLO sequence. This test checks the 
assertion of ACLO and DCLO and that the CPU traps to the 
correct service routine. If this program is running under 
ACT11 this test will be skipped. 


Parity error test. This test will cause parity error and 
checks that the CPU traps to the correct vector. 


(EG., 11/05 AND 11/20). 
THIS TEST SHOULD BE DESELECTED IF THE MEMORY PARITY OPTION 
IS NOT PRESENT OR NOT ENABLED. 


SWO06=1 INHIBIT TEST 14 


Multitransfers I. This test will cause any Bus exercisers, 
up to 4, to create a lot of traffic on the Bus and check 
that the CPU can handle it; all devices are set off 
simultaneously. 


Multitransfers II. This test will have the available 
exercisers doing various transfers and/or interrupts at 
different request levels to further check (CPU handling 
capabilities. 


SEQ 0005 
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TEST 17 = DUMMY END OF PROGRAM. This portion of the program 
is just to see if ‘' H'' has been typed on the console to 
cause a program halt. If there is no ‘'H" the program 
continues by jumping to SEOP (end-of-pass routine). 

IF THE PROGRAM IS HALTE 

DEPRESS ANY CONSOLE KEY TO REMOVE THE SOFTWARE HALT CONDITION. 


3.3 Sysmac Routines 


The "END OF PASS ROUTINE’ thru ‘Power Down and Up Routines’, as listed 
j the program Listing, are the Sysmac package macros. They are 
called out in the source program, some with arguments and some 
without, and are expanded in the listing. Some macros are necessary 
for the operation of others, so for a complete explanation of all 
available Sysmac Macros see PDP-11 Maindec Sysmac Package (DZQA(-B-D). 


-O ERROR REPORTING 


The minimum amount of information given when an error occurs is the PC 
of the error call and the Test number in which it occurred. Other 
eet yees. data will by typed out depending on the test being run at 
tnat time. 


D THIS WAY, AND THE PROGRAM IS RESTARTED, 


SEQ 0006 
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UNIBUS EXERCISER MACY11 30A(1052) C3-MAY-78 


CZKUAD.P11 26-APR-78 17:02 SEQ 0008 

2 167400 $SWR=167400 

3 000300 SSWRMK=300 

4 -TITLE UNIBUS EXERCISER 

5 s*COPYRIGHT (C) MARCH, 75 

6 :*DIGITAL EQUIPMENT CORP. 

: : SMAYNARD, MASS. 01754 

; :sPROGRAM BY M.SOARES 

1 
11 : STHIS PROGRAM WAS ASSEMBLED USING THE PDP=-11 MAINDEC SYSMAC 
 SPACKAGE (MAINDEC=11-DZQAC-B1),AUG 29,1975. 
; 000001 é1N= 1 
. -SBTTL OPERATIONAL SWITCH SETTINGS 

** 

18 3* SWITCH USE 

19 St weet meen eee reseecnn= 
20 ;* 15 HALT ON ERROR 
21 ;* 14 LOOP ON TEST 
22 it 13 INHIBIT ERROR TYPEOUTS 
23 it 11 INHIBIT ITERATIONS 
24 it 10 BELL ON ERROR 
25 se 9 LOOP ON ERROR 
26 3* 8 LOOP ON TEST IN SWR<5:0> 
. i* 6 WHEN SET, INHIBIT TEST 14 
34 -SBTTL BASIC DEFINITIONS 

31 stINITIAL ADDRESS OF THE STACK POINTER *#* 1100 #2 

32 001100 STACK= 1100 

33 -EQUIV) EMT,ERROR ;;BASIC DEFINITION OF ERROR CALL 
34 -EQUIV IOT, SCOPE ;;BASIC DEFINITION OF SCOPE CALL 
35 177776 PS= 177776 7;PROCESSOR STATUS WORD 

36 -EQUIV PS,PSW 

37 177774 STKLMT= 177774 7: STACK LIMIT REGISTER 

38 177772 PIRQ= 177772 37PROGRAM INTERRUPT REQUEST REGISTER 
39 177570 DSWR= 177570 7 HARDWARE SWITCH REGISTER 
7 177570 DDISP= 177570 7 ;HARDWARE DISPLAY REGISTER 
42 ;*GENERAL PURPOSE REGISTER DEFINITIONS 
43 000000 RO= 20 7: GENERAL REGISTER 
44 000001 R1= <1 7: GENERAL REGISTER 
45 000002 R2= %2 7; GENERAL REGISTER 
46 000003 R3= 23 ;;GENERAL REGISTER 
47 000004 R4= 24 ;;GENERAL REGISTER 
48 000005 R5= z5 7;GENERAL REGISTER 
49 000006 R6= 26 7;GENERAL REGISTER 

50 000007 R7= 17 7;GENERAL REGISTER 

5’ 000006 SP= 26 7; STACK POINTER 

4 000007 PC= 27 >; PROGRAM COUNTER 

54 s*PRIORITY LEVEL DEFINITIONS 

55 000000 PRO= 0 ; PRIORITY LEVEL 0 

56 000040 PRi= 40 s PRIORITY LEVEL 1 

57 000100 PR2= 100 s PRIORITY LEVEL 2 


J 
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000140 PR3= ;;PRIORITY LEVEL 3 
000200 PR4= ;;PRIORITY LEVEL 4 
000240 PR5= ;;PRIORITY LEVEL 5 
000300 PR6= ;;PRIORITY LEVEL 6 
000340 PR7= ; PRIORITY LEVEL 7 


3*'"SWITCH REGISTER’ SWITCH DEFINITIONS 
15 100000 


100000 


000001 1 
SWO9, SW9 
SW08 , SW8 
SWO7,SW?7 
SW06, SW6 
SWOS,SW5 
SWO4 ,SW4 
SWO3,SW3 
SWO2,SW2 
SWO1,SW1 

-EQUIV SW00,SWO 


;*DATA BIT DEFINITIONS (BITOO TO B1IT15) 
100000 BIT15= 100000 


000001 





k 
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-EQUIV BIT04,BIT4 
EQUIV BITO3,B1T3 
-EQUIV BITO2,BIT2 
-EQUIV BITO1,B1T1 
-EQUIV BIT00,B1T0 


;*BASIC “‘CPU"’ TRAP VECTOR ADDRESSES 
000004 ERRVEC= 4 :;TIME OUT AND OTHER ERRORS 
RESVEC= ;;RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC Te ee | 
TRIVEC= >; TRACE TRAP 
BPTVEC= ; BREAKPOINT TRAP (BPT) 
3: INPUT/OUTPUT TRAP (IOT) **SCOPE** 
7;POWER FAIL 
EMULATOR TRAP (EMT) **ERROR** 
TRAPVEC=34 33""TRAP’* TRAP 
TKVEC= 60 7: TTY KEYBOARD VECTOR 
TPVEC= 64 ;:TTY PRINTER VECTOR 
000240 PIRQVEC=240 ;;PROGRAM INTERRUPT REQUEST VECTOR 


-SBTTL MEMORY MANAGEMENT DEFINITIONS 
3*KT11 VECTOR ADDRESS 


ee a et ed ot 


POMOIM PINON PON Ss Ss es 
NAOWSWH—OODOONOU SE 


000250 


177572 
177574 
177576 
172516 


177600 
177602 
177604 
177606 
177610 
177612 
177614 
177616 


177640 


177656 


MMVEC= 


250 


3*KT11 STATUS REGISTER ADDRESSES 


SRO= 
SR1= 
SR2= 
SR3= 


177572 
177574 
177576 
172516 


z*USER ‘‘I"' PAGE DESCRIPTOR REGISTERS 


UIPDRO= 
UIPDR1= 
UIPDR2= 
UIPDR3= 
UIPDR4= 
UIPDR5= 
UIPDR6= 
UIPDR7= 


2 tUSER 


UIPARO= 
UIPAR1= 
UIPAR2= 
UIPAR3= 
UIPAR4= 
UIPAR5= 
UIPAR6= 
UIPAR7= 


177600 


177616 


177640 


177656 
s*KERNAL “‘I"’ PAGE DESCRIPTOR REGISTERS 


""I'' PAGE ADDRESS REGISTERS 
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UNIBUS EXERCISER 
CZKUAD.P11 26-APR-78 1 
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17:02 SEQ 0011 


KIPDR7= 
;*KERNAL “‘I'’ PAGE ADDRESS REGISTERS 


KIPARO= 
KIPAR1= 
KIPAR2= 
KIPAR3= 
KIPAR4= 
KIPARS= 
KIPAR6= 


172356 KIPAR7= 


-SBTTL TRAP CATCHER 
000000 -=0 

;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A *’.#2,HALT"’ 
:*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 


PA F. CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


000174 
000000 
000000 


000174 
000176 


DISPREG: 
SWREG: 


WORD 0 
-WORD 0 


; SOFTWARE DISPLAY REGISTER 
:: SOFTWARE SWITCH REGISTER 


000200 
000204 


3/* 
s/* 
3/t 


:/* 
:/* 
:/* 


: &/: «/; 
: ef: 


: &/: 


000220 
000226 


000200 
005037 001174 
000137 001756 


-=200 
CLR 
JMP 


STMPO 
@#START 


:/* 
:/* 
:/* 


:/* 
:/* 
:/* 


:/* 
:/* 
:/* 


:/* 
:/* 
:/* 


:/* 
:/* 
:/* 


:/* 
:/* 
:/t 


:/* 
:/* 
:/* 


:/* 
:/* 
:/* 


:/t 
:/t 
:/* 


:/* 
:/* 
:/t 


:/t 
:/* 
:/t 


:/t 
s/e 
:/t 


:/* 
:/* 
:/t 


:/* 
:/* 
:/t 


;MAKE SURE TMPO=0 
; JUMP TO START 


:/t 
:/* 
:/t 


:/* : 
:/t : 
sf? 3 


:*WHEN LOADING THE PROGRAM FOR THE FIRST TIME, OR ANY TIME 


;tAFTER ALTERING THE # OF EXERCISERS ON THE BUS, 
;*YOU MUST START AT LOCATION 200 AND 
;*RESTART AT LOCATION 220 ONLY IF YOU DO NOT WISH 
:*TO SIZE MEMORY AND TYPE OUT DEV ADDRESSES AGAIN 
a/: af: e/: af: ef: w/: fs ef: af: 2/: 2/; 
2 &/: w/: ef: e/: fs ef: 2/: 2/: 8/: 
2 8/3 /: &/: w/t e/s ef: /: 2/: 8/; 


-=220 


e/: 
«/: 


000220 
012737 
000137 


000777 
001756 


001174 MOV 


JMP 


#777,STMPO 
@#START 


3 OSs 
2 @/: 
: ef: 


a/: 
a/: 
a/: 


;TMPO IS INDICATOR FOR RESTART 
; JUMP TO START 


SEAAAAATAARATAAA AAA AAAAT AAA AAACKe RAKE Kee eReReteneeereteeenet 


-SBTTL ACT11 HOOKS 
HOOKS REQUIRED BY ACT11 
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000232 . ;SAVE PC 
000046 -=46 

000046 015636 ::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
000052 -=52 

000052 040000 ° 40000 332)SET os y TO 40000 
000232 - =$SVPC 3; RESTORE P 
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001222 


MACY11 30A(1052) 


26-APR=78 17:02 


001100 
000000 


0 
000000 
000000 


5 
000012 


000377 


aa 78 
ACT11 HOOKS 


N 
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SRR RAERRE AAA AE REET EERE EET EEE AER EREEEAAEAAEERE REE 


-SBTTL 


COMMON TAGS 


:*THIS TABLE CONTAINS E conaceneyt COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM 


-=1100 
SCMTAG: 
SPASS: .WORD 
STSTNM: .BYTE 
SERFLG: .BYTE 
SICNT: .WORD 
SLPADR: .WORD 
SLPERR: .WORD 
SERTTL: .WORD 
SITEMB: .BYTE 
SERMAX: .BYTE 
SERRPC: .WORD 
SGDADR: .WORD 
SBDADR: .WORD 
SGDDAT: .WORD 
SBDDAT: .WORD 
~ WORD 
. WORD 
- WORD 
WR: - WORD 
DISPLAY: .WOR 
KS 177560 


SREGAD: .WORD 
SREGO: .WORD 
SREG1: .WORD 
SREG2: .WORD 
SREG3: .WORD 
SREG4: .WORD 
SREGS: .WORD 
STMPO: WORD 
STMP1: WORD 
STMP2: WORD 
STMP3: WORD 
STMP4: .WORD 
STMPS: WOR 
STIMES: 0 
SESCAPE :0 
$BELL: .ASCIZ 
SQUES: .ASCII 
SCRLF: .ASCII 
SLF: ASCIZ 


oooooo°oco—-coCoCoCCOoOo 


™m 


Ooooooooooooo CO—-No 


<207><377><377> 
/7/ 


<15> 
<12> 


7 START OF 
3; CONTAINS 
3; CONTAINS 
3: CONTAINS 
3; CONTAINS 
3; CONTAINS 
3; CONTAINS 
3: CONTAINS 
3 CONTAINS 
3; CONTAINS 
3; CONTAINS 
3; CONTAINS 
3; CONTAINS 
3; CONTAINS 


COMMON TAGS 

PASS COUNT 

14E TEST NUMBER 

ERROR FLAG 

SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 

MAX. ERRORS PER TEST 

PC OF LAST ERROR INSTRUCTION 
ADDRESS OF ‘GOOD' DATA 
ADDRESS OF ‘BAD’ DATA 
*GOOD' DATA 


:: CONTAINS ‘BAD’ DATA 
; ;RESERVED--NOT TO BE USED 


7; ADDRESS OF SWITCH REGISTER 
;;ADDRESS OF DISPLAY REGISTER 
3: TTY KBD STATUS 
7: TTY KBD BUFFER 
i: TTY PRINTER STATUS REG. ADDRESS 
3: TTY PRINTER BUFFER REG. ADDRESS 
7: CONTAINS NULL CHARACTER FOR FILLS 
>: CONTAINS # OF FILLER CHARACTERS REQUIRED 
77 INSERT FILL CHARS. AFTER A “‘LINE FEED" 
33‘"TERMINAL AVAILABLE’’ FLAG (BI1T<07>=0=YES) 
:;CONTAINS THE ADDRESS FROM 
::WHICH (S$REGO) WAS OBTAINED 
: CONTAINS (($REGAD) +0) 
;: CONTAINS ((S$REGAD) +2) 
7: CONTAINS ((SREGAD) +4) 
7: CONTAINS ((SREGAD) +6) 
7: CONTAINS (($REGAD) +10) 
7: CONTAINS ((S$REGAD) +12) 
7; USER DEFINED 
7 USER DEFINED 
7;USER DEFINED 
7 USER DEFINED 
; USER DEFINED 
esOsee DEFINED 
3 NUMBER OF ITERATIONS 
sPSCAPE ON ERROR ADDRESS 
CODE FOR BELL 
> ;QUESTION MARK 
CARRIAGE RETURN 
sc LINE FEED 


SeQ 0013 


B 
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PRRRRAAAAAAAAAA HATHA THEE HEHE REE ETH eee ee eee eeeeeeeeeeeeeeee 
-SBTTL ERROR POINTER TABLE 


:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

:*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

; *NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERRPC). 

> *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


; ;:POINTS TO THE ERROR MESSAGE 
: ;;POINTS TO THE DATA HEADER 

: ::POINTS TO THE DATA 

; :;POINTS TO THE DATA FORMAT 


001224 SERRTB: 
SERA AAAAAAE TAREE A ARETE AAA AEE AEE ARETE AHKEAAAKEKAEAAKEAEREES 
FERRARA EAAA ARETE ERATE AERA AAEAAAEAAAEREKARKAAEKEERERREAAEEEEE 


001224 011404 ;CPU TRAPPED THRU LOC 4 -TIME OUT 
011452 ; ADDR SERRPC #ERR/TST# 
015262 ;SREG2,SERRPC,STSTNM,0 

001232 000000 


001234 011503 EM :CPU ISSUED A BUS GRANT WITH PSW = 7 

;DEV 1 SHOULD NOT HAVE BECOME BUS MASTER 
001236 011616 ;BE1DB BE1CC BE1BA BEICR1 PSW SERRPC #ERR/TST# 
001240 015272 ; $REGO, SREG1, SREG2,$REG3,SREG4,SERRPC,STSTNM,O 
001242 000000 


001244 011706 3 :CPU DID NOT ISSUE A BUS NPG 

001246 011740 ;BE1CR1 BEICC FM-PS TO-PS SERRPC #ERR/TST# 
001250 015312 ;SREGO,$REG1, SREG2,SREG3,SERRPC,.STSTNM,0 
001252 000000 


001254 012021 CPU DID NOT ISSUE BUS GRANT 7 
001256 011740 
001260 015312 
001262 000000 


001264 012057 E :CPU DID NOT ISSUE BUS GRANT 6 
001266 

001270 

001272 000000 


001274 012115 E :CPU DID NOT ISSUE BUS GRANT 5 
001276 011740 
001300 015312 
001302 000000 


012153 :CPU DID NOT ISSUE BUS GRANT 4 
011740 
015312 
001312 000000 


0 
; ITEM 10 
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001314 
001316 


001320 
001322 


001324 


001332 


001334 
001336 
001340 
001342 


001344 
001346 
001350 
001352 


001354 
001356 
001360 
001362 


001364 
001366 


001370 
001372 


001374 
001376 
001400 
001402 


001412 
001414 


001422 


001424 
001426 
001430 
001432 


001434 
001436 
001440 


26-APR-78 17:02 


012211 
012257 


015330 
000000 


012415 


000000 


012554 
012642 
015362 
000000 


012703 


000000 


013007 
012766 
015374 
000000 


013072 
013235 


015402 
000000 


013347 
013235 
015402 
000000 


013435 
013235 
015402 
000000 


013523 
013235 
015402 
000000 


013617 
013235 
015402 
000000 


013713 
014005 
015420 


03-MAY-78 


;1TEM 


ITEM 


ITEM 


;1TEM 


; ITEM 


; ITEM 


; ITEM 


s ITEM 


; ITEM 


; ITEM 


EM10 
DH10 


DT10 
0 


11 
EM11 
DH11 
0111 
0 


12 
EM12 
DH12 
DT12 


. £ 
14:28 PAGE 10 
ERROR POINTER TABLE 


ONE OR MORE DEVICES DID NOT INTERRUPT 
; THIS IS THE ORDER IN WHICH THEY INTERRUPTED 


1ST 2ND 3RD 4TH SERRPC #ERR/TST# 


:$REG1,$REG2,$REG3,$REG4, SERRPC,S$TSTNM,0 


;BUS ADDRESS LINES <A17:A14> DID NOT FUNCTION PROPERLY 
;BE1CR1 BEICR2 BEIBA SERRPC #ERR/TST# 
;$REG1,$REG2,$REG3,SERRPC,STSTNM,O 


;CPU NO SACK TIME OUT LOGIC FAILED(TO NEGATE BUS GRANT) 
;BE1CR1 BEICR2 SERRPC #ERR/TST# 
;SREGO,$REG1,SERRPC,STSTNM,0 


;CPU DID NOT PROPERLY EXECUTE AN ACLO/DCLO SEQUENCE 
;SERRPC #ERR/TST# 
;SERRPC,STSTNM,O 


:CPU DID NOT TRAP FROM BUS PARITY ERR PA/PB = 0/1 


;DEV 1 DID DATIP WITH ROL ON DATOB TO MEMORY 
; THE TRANSFER TO THE FOLLOWING LOC WAS INCORRECT 


MEMORY ACTUAL CORRECT 
LOC DATA DATA S$ERRPC #ERR/TST# SICNT # 
SREGO, $SREG1,SREGS,SERRPC,STSTNM,SICNT,O 


DEV 3°S DATO TO MEMORY DID NOT EQUAL PATTERN IN R3 


:DEV 4°S DATO TO MEMORY DID NOT EQUAL PATERN IN R4 


:DEV 1 DID FUN 1-NPR=DATIP; INCORRECT PATTERN IN MEMORY 


;DEV 2 DID FUN 2-NPR=DATOB; INCORRECT PATTERN IN MEMORY 


:BIT 7 OF CR2 SET-CPU DID > TIME OUT WITH SACK INHIBITED 
;DEV # PC SERRPC #ERR/TST# 
7 STMP4,SREGS, SERRPC,STSTNM,0 


SEQ 0015 


dD 2 
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001442 000000 


001444 014047 EM23 ; 11 OF CR2 SET-NO SSYN ON INTR SIGNAL 
001446 014005 
001450 015420 
001452 000000 


001454 014120 EM24 : 5 OF CR2 SET-RECEIVED WRONG GRANT 
001456 014005 
001460 015420 
001462 000000 


001464 014166 EM25 ; 6 OF CR2 SET-BUS LATE 
001466 

001470 

001472 000000 


001474 014220 EM26 ; 8 OF CR2 SET-DEV DID NOT RECEIVE SSYN 
001476 014005 
001590 015420 
001502 000000 


001504 014262 EM27 : 9 OF CR2 SET-WRONG ADDR ON BUS 
001506 014005 
001510 015420 
001512 000000 0 
; ITEM 30 


001514 014331 30 : 10 OF CR2 SET-DEV RECEIVED OTHER THAN ONE GRANT 
001516 014005 
001520 015420 
001522 000000 0 
7 1TEM31 


001524 014420 E :BKGRND RTN INSTRUCTIONS OF NEGB'S WERE NOT DONE 
CORRECTLY TO $REG1 DURING MULTITRANFERS I1 
001526 014560 ACTUAL CORRECT 
iDATA DATA SERRPC #ERR/TST# SICNT # 
001530 015432 3$REG1, 146463, SERRPC,STSTNM,SICNT,% 
001532 000000 


001534 014653 ; EM32 :DEV 3 DID DATI BUT HAS INCORRECT 
;VALUES IN DATA REGISTER 
001536 014560 


001540 015432 
001542 000000 


001544 014737 EM33 DEV 4 DID NOT INTR THE CORRECT # OF TIMES 
001546 : 
001550 

001552 000000 


001554 015011 EM34 ;LAST DATI XFER BY DEV 1 WAS INCORRECT- 
EITHER DEV DID NOT WORK OR WRONG DATA WASSET UP 
001556 014560 


001560 015432 
001562 000000 
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001564 015165 EM35 ;CPU TRAPPED THRU LOC 0 TO CATCH 
; IMPROPERLY LOADED VECTORS 

001566 011452 DH1 ; ADDR SERRPC #ERR/TST# 

001570 015262 DT1 ;SREG2,SERRPC,STSTNM,O 

001572 000000 0 


PERAARRAAHAAAAA ATER AeA eee T ATA TA Tee A eee eee ete eee terete eee Kees 
FRR AE AAA AE RARER REET TAREE AERA RERARERE KERR R REE 
PERERA AERA AETHER AAT AAA AAEA ARERR AREREEREREAAREEARE REE 

001574 007740 ALLERR :7740 sALL ERR BITS OF CR2 

001576 SIMLGO :170014 sADDR TO SET OFF ALL DEVICES SIMOLTANEOUSLY 

; TRAP VEC FOR PARITY ERROR 

;PSW ADDR FOR TRAP ON PARITY ERR 

DATA REG ADDR FOR DEVICE 1 

:CYCLE COUNT REG ADDR FOR DEV 1 

;ADDR REG ADDR FOR DEV 1 

;CONTROL REG 1 ADDR FOR DEV 1 

CLEAR ERRS REG ADDR FOR DEV 1 

CONTROL REG 2 ADDR FOR DEV 1 

DATA REG ADDR FOR DEV 2 

CYCLE COUNT REG ADDR FOR DEV 2 

:ADDR REG ADDR FOR DEV 2 

;CONTROL REG 1 ADDR FOR DEV 2 

CLEAR ERRS REG ADDR FOR DEV 2 

;CONTROL REG 2 ADDR FOR DEV 2 

;DATA REG ADDR FOR DEV 3 

:CYCLE COUNT REG ADDR FOR DEV 3 

;ADDR REG ADDR FOR DEV 3 

;CONTROL REG 1 ADDR FOR DEV 3 

:CLEAR ERRS REG ADDR FOR DEV 3 

CONTROL REG 2 ADDR FOR DEV 3 

DATA REG ADDR FOR DEV 4 

:CYCLE COUNT REG ADDR FOR DEV 4 

ADDR REG ADDR FOR DEV 4 

; CONTROL REG 1 ADDR FOR DEV 4 

:CLEAR ERRS REG ADDR FOR DEV 4 

CONTROL REG 2 ADDR FOR DEV 4 

; TRAP VEC ADDR FOR DEV 1 

:PSwW ADDR THRU BEIVEC 

; TRAP VEC DEV 2 

:PSW ADDR THRU_BE2VEC 

; TRAP VEC DEV 3 

:PSwW ADDR THRU BE3VEC 

; TRAP VEC DEV 4 

iPS ADDR P THRU BE4SVEC 

CONTAINS # OF DEVICES ON BUS 

;WILL CONTAIN ADDR(S) OF INTR'G DEVS 


;MAX ADDR TO WHICH DATA XFERRED BY DEV 1 
;MAX ADDR TO WHICH DATA XFERRED BY DEV 2 
;MAX ADDR TO WHICH DATA XFERRED BY DEV 3 
;MAX ADDR TO WHICH DATA XFERRED BY DEV 4 
; TAG ENDING DEFINED LABELS 

PITT ITIIIII IT ITIIT ITI IIIT ITI ITititititiiliiiititiiiii iti t iii it) 

PUT IIIITITISIITIT IIIT IT TIT IIIT IIIT Titi iii iiiiiiiiiitiiitt) 
001724 CLRRIN: 
001724 012703 001600 MOV #BE1DB,R3 ;R3 IS POINTER TO BUFFER AREAS 


14 


001600 


000000 000000 


- 
o 
. 

Oo 
oOo 


1 

1 

0 
70 
:0 
70 
:0 
70 
:0 
:0 
:0 
:0 
70 
:0 
:0 
70 
:0 
:0 
:0 
:0 
:0 
:0 
:0 
:0 
:0 
:0 
:0 
:0 
:0 
:0 
:0 
:0 
70 
:0 
70 
:0 
:0 
:0 
:0 
70 
:0 
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001730 005023 1$: (R3)+ CLEAR BUFFER THEN INCREMENT ADDR 
001732 0 001722 #ENDMEM, R3 :1F POINTER AT LAST BUFFER, EXIT 
001736 1$ :1F PLUS, GO BACK AND CLEAR NEXT ADDR 
001740 001160 HSREGO, R3 ;NOW START TO CLEAR TEMP REGISTERS 
001744 2$: (R3)+ ;CLEAR CURRENT ADDR 

001746 001206 FSTMPS, R3 ;CHECK FOR LAST TEMP REG ADDR 

001752 2$ ;1F NOT, CLEAR NEXT TEMP REG 

001754 000207 ;EXIT 


“i 
_ 
Ww 


WMWMAYVIVIWAWTWY? 
Ra es ss os 


SoOONOUWS 


PITITITITILILILITT TILL TLL LLL ITT TTL TTT Titi iii it 
FRR A ARATE AERA AAA AERA A ETRE ATE TERE ARAEREREKERERE RARE 
001756 START: 
012706 001100 #SCATAG,R6 s:FIRST LOCATION TO BE CLEARED 
(R6)+ 3; CLEAR MEMORY LOCATION 
001126 #SBDDAT,R6 3; D0NE? 
.-6 ;;LOOP BACK IF NO 
001100 #STACK,SP 3: SETUP THE STACK POINTER 
000020 #SSCOPE ,@#IOTVEC ;;10T VECTOR FOR SCOPE ROUTINE 
#340 a#@IOTVEC+2 ;;LEVEL 7 
#SERROR ,QMEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE 
#340 a#MEMTVEC+2 ;;LEVEL 7 
#STRAP ,@#TRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 
#340, a#TRAPVEC+2;LEVEL 7 
#SPWRON ,@#PWRVEC ;; POWER FAILURE VECTOR 
#340 ,a#PWRVEC+2 ;;LEVEL 7 
SENDCT,SEOPCT 7: SETUP END-OF -PROGRAM COUNTER 
IMES s: INITIALIZE NUMBER OF ITERATIONS 
77 CLEAR THE ESCAPE ON ERROR ADDRESS 
;;ALLOW ONE ERROR PER TEST 
sc INITIALIZE THE LOOP ADDRESS FOR SCOPE 
7; SETUP THE ERROR LOOP ADDRESS 
3; SAVE ERROR VECTOR 


000004 :;SET UP TIME OUT VECTOR 

176776 i; TRY TO REFERENCE HARDWARE SWR 
65$ :sBRANCH IF NO TIMEOUT TRAP OCCURS 

000176 001136 : #SWREG, SWR :POINT TO SOFTWARE SWR 

000174 001140 #DISPREG, DISPLAY ;;POINT TO SOFTWARE DISPLAY REG 
(SP)+, (SP)+ RESTORE STACK 

000006 : (SP) +, aa RESTORE ERROR VECTOR 

000004 (SP) +, 084 

000200 176740 #B1T07,aswR 1S SWITCH 7 UP? 
3$ ;1F NOT, SKIP TYPEOUT 

011174 ,QN0 


022737 000777 001174 : #777, STMPO :1S THIS RESTART FROM LOC 220? 
001002 5$ s1F NOT,SKIP THE JMP INSTR 
000137 003506 avTtsTi sELSE JUMP TO TEST 1 


012737 010562 000000 #THRUO,O ;SET UP FOR TRAP THRU LOC 0 
000340 000002 #PR7,2 ;SET UP PSW FOR TRAP THRU 0 
000200 176674 #81107, aSwR 31S SWITCH 7 UP? 
338 :1F NOT, SKIP TYPEQUT 
002252 .*4 ii TYPE ASCIZ STRING 
002250 000422 B 66% GET OVER THE ASCIZ 
33-ASCI2 <15><12>/ 14 BUS HANGS WHILE SIZING MEMORY/ 





EXERCI 
P11 


002316 
002316 
002322 


002370 


SER 
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104400 
000422 


004737 


012703 
022700 
002002 
000137 


012737 


012716 
000002 


002324 


001724 


001660 
170060 
002736 
002544 


002662 
001700 


001172 
000002 
001174 
000005 


001174 
000004 


000002 


000002 
000002 


170060 


002736 
000000 


00257¢ 


MACY11 30A(1052) 
:02 


000006 


000004 
000004 


001174 


001700 


03-MAY-78 


G 2 
14:28 PAGE 14 


ERROR POINTER TABLE 


668: 


67$: 
33$: 


LODDEV: 
C 


108: 


I 
MOVREG: 
M 


is TYPE ASCIZ STRING 
OVER THE ASCIZ 


GET 
<15><129/11 IS DUE TO NO CPU SSYN TIME OUT/ 


PC,CLRRIN 
PC,$SIZE 
#PR7, ayes ia 


#BE10B,R1 
#BEIVEC,R3 


#170060 ,R0 
108 

BGIN 
#NODEV,ERRVEC 
(RO) 


#TYMOUT ,ERRVEC 
DEVCNT 
RO, (R1)+ 
RO, SREGS 
#2,R0 
STMPO 
#5, STMPO 
MOVREG 
STMPO 

#4 ,RO 
RO, (R1)+ 
#2,R0 


R2,(R3)* 
#2,R2 

R2,(R3)+ 
#2,R2 

LODDEV 


; CLEAR BUFFER AREAS 

FIND AVAILABLE MEMORY 

;PS=7 FOR TRAP THRU LOC 4 

;SET UP POINTER FOR 1ST POSSIBLE DEV ADDR 
;SET UP POINTER FOR 1ST POSSIBLE VEC ADDR 
SET UP POINTER FOR DEVICE ADDR LOCATION 
SET UP POINTER FOR INTR ADDR LOCATION 


:I1S RO > LAST POSSIBLE DEV ADDR? 
:1F NOT,GO TO 10$ 
ELSE GO TO BGIN 


;SET UP TRAP VECTOR FOR TIME OUT 

SEE IF ACTUAL DEVICE ADDRESS EXISTS 
CHANGE TRAP VECTOR FOR ERROR CONDITION 
: COUNT DEVICES 

;MOVE ACTUAL DEVICE ADDR TO DEVICE NAME 
;REGS CONTAINS LAST DEVICE ADDR 

; INCREMENT POINTER BY 2 

;COUNT # OF REGISTERS PER DEVICE 

sAFTER 5 REGISTERS 

sARE RECORDED 

CLEAR THE COUNTING REGISTER 

;ADD 4 TO THE POINTER THEN 

RECORD THE LAST REGISTER ADDRESS 

; INCREMENT POINTER BY 2 

NOW START RECORDING 

; THE INTR VECTORS 

; INCREMENT POINTER BY 2 


; THE INTR VECTORS 
; INCREMENT POINTER BY 2 
AND GO SEE IF THER'S ANOTHER DEVICE 


FRAAAARAK AKA A KKH KATA HHA eKeKeeeeeeeeeeeeeeeeketereneeretere 
PPAAeeeeeeeeeeeeeeeerereeeeteeeeeeeeeeeeketeneneeeneneeerererere 


NODEV: 


#170060 ,R0 
ADD20 
#BGIN, (SP) 
#0 -DEVCNT 


#4 


TIME OUT ROUTINE FOR DEVICE CHECK 

:1F ALL POSSIBLE ADDR'S HAVE NOT BEEN CHECKED 
;OUT-GO BACK AND CHECK FOR MORE 

sELSE CHANGE STACK POINTER 

CHECK FOR NO EXERCISERS 

; IF ONE OR MORE EXERCISERS, EXIT 

ain ASCIZ STRING 


OVER THE ASCIZ 


GET 
<15><12>/THERE ARE NO EXERCISERS ON THE BUS/ 


;ADD 20 TO POINTER 
;POINTER=NEXT DEV'S VEC LOCATIONS 
;GO BACK TO LODDEV 


sExXIT 


SEQ 0019 
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SERRA RTARTA ATTA EEE EAE EREE ARERR 
SERRA RETA AERERE AERA AREER EA AR ARTETA RETAAAARKEREKRERAKERE REE 


002662 TYMOUT: TIME OUT ROUTINE 


002662 011637 001164 MOV (SP) ,SREG2 ;THE MOVE IS FOR TYPEOUT REASONS 
002666 162737 000002 001164 ° ;SUBTRACT 2 TO FIND ACTUAL ADDR 
002674 104001 ERR MESSG FOR ILLEGAL TIME OUT 
002676 000002 
POSIT Ieee ceric titi i titi ii iii titi iii iit iii itis) 
OCCT IIIT e eit it iii iii iii titi ii ititi ii iiiitit iii itis) 
OPIS TIS i iri iii iii ii iii iti iii iii iii i ii iiiiiiiit 
002700 CLRREG: 
005000 + , :RO= 0 
001600 #BE1DB,R1 TRI WILL POINT TO ADDR OF 1ST DEVICE 
RO :RO IS REGISTER COUNTER 
:CLEAR CONTENTS OF REG 
000006 IF COUNT IS NOT 6 
$ :GO BACK AND INCREMENT COUNT 
ELSE CLEAR RO 
R2 ;ADD 1 TO R2(DEVICE COUNTER) 
001700 —— ;SEE IF IT = PREVIOUS COUNT 
:1F NOT, CLEAR NEXT DEV REGS 
002734 000207 S Pe T 


EX! 
SOITTTTATA TATA TATA AA AAA AAA AA ATA AAA A AAA AAA AAA AAA AAA AAA AAA AAA AAA 
STITT TATTTT LATTA LLL AAA AAA 
002736 SAIITTTAA TATA ATA AAA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA AAA AAA AA AAA AAA AAA 
BGIN: 
012737 010342 000024 #PWRFAL,PWRVEC ;TAKE CARE OF BIT 4(S) BEING SET RANDOMLY IN CR2(S) 
PC,STVEC ;SET UP VEC(S) FOR RANDOM ERRS 
PC, CLRREG ;CLEAR CONTENTS OF ALL AVAILABLE DEVS 
$ 0 ; CLEAR TEMPORARY REG 
SREGO ;CLEAR COUNTER 
001174 SLSTBK,STMPO peeteetereerarerarererene 
000200 176136 #BITO7,aSwR 71S SWITCH 7 UP? 
2s ;1F UP, GO TO 2$ 
003506 ELSE SKIP THE TYPEOUTS 
001160 : ;A0D 1 TO REGO 
001174 sSHIFT TO DIVIDE 
000005 001160 i1S TMPO DIVIDED BY 40(5 ASR'S) 
2$ ;1F NOT, SHIFT AGAIN 
001174 ;ADD 1 FOR FUDGE FACTOR 
001221 , SCRLF 
013746 001174 STMPO,-(SP) 7; SAVE STMPO FOR TYPEOUT 
3; THIS IS THE # OF K OF MEMORY 
003042 104404 3:G0 TYPE--DECIMAL ASCII WITH SIGN 
003044 104400 003052 +4 ii TYPE ASCIZ STRING 
003050 000424 643% ;GET OVER THE ASCIZ 
003122 33-ASCI2Z /Kk OF MEMORY IS AVAILABLE IN THIS SYSTEM/ 


003122 104400 003130 TYPE es ii TYPE ASCIZ STRING 
003126 000431 BR 65$ GET OVER THE ASCIZ 
003212 3; -ASCIZ <15><12>/THE FOLLOWING # OF EXERCISERS ARE ON THE BUS: / 


003212 013746 001700 MOV DEVCNT,=(SP) 7; SAVE DEVCNT FOR TYPEQUT 
003216 104402 TYPOS 3:G0 TYPE--OCTAL ASCII 
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003220 
003221 
003222 
003226 


003324 
003324 
003330 


003364 


003410 
003420 


003506 
003510 
003514 


003514 
003522 
003530 
003536 
003542 


26-APR-78 
001 
000 
104400 
000436 


104400 
000415 


005037 
012700 
005237 
011037 


104400 
000403 


013746 
104402 


104400 
000402 


013746 


104400 


MACY11 30A(1052) 


17:02 


003230 


003332 


001174 
001600 


001174 
001160 
003412 


001174 


003436 


001160 


000014 
001174 


001221 
000004 


011277 


002700 


004730 


002021 


001700 


001700 


176136 
176132 
000004 


O3=-MAY-78 14: 
ERROR POINTER TABLE 


668: 


67$: 


4$: 


68$: 


69$: 


5$: 


a 
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3; TYPE 1 DIGIT(S) 
3; SUPPRESS LEADING ZEROS 
is TYPE ASCIZ STRING 

;GET OVER THE ASCIZ 


SEQ 0021 


<15><12>/ THE LOWEST ELECT. PRIORITY UBE SHOULD NOT HAVE W1 JUMPER/ 


BYTE 1 

.BYTE 0 

TYPE 4 

BR 66% 
33.ASCIZ 

TYPE oth 

BR 67$ 

33 ASCIZ 

CLR STMPO 

MOV #BE1DB,R0 
INC STMPO 

MOV (RO), $REGO 
TYPE +4 
BR 68$ 
33.ASCIZ / DEV/ 
MOV STMPO,-(SP) 
TYPOS 

.BYTE 2 

BYTE 0 

TYPE 2 t4 

BR 69$ 
33-ASCIZ 4/2zf/ 
MOV SREGO,-(SP) 
TYPOS 

-BYTE 6 

-BYTE 0 

ADD #14,R0 

CMP STMPO, DEVCNT 
BNE 4$ 

TYPE -SCRLF 

CMP #4, DEVCNT 
BNE 5$ 

TYPE ~FORS 


tty ASCIZ STRING 
OVER THE ASCIZ 


3GET 
<15><12>/DEWICE ADDRESS(ES): /<15><12> 


CLEAR TMPO(USED AS COUNTER) 
;USE RO AS POINTER TO ADDRESSES 


;ADD 1 TO TMPO 

;MOVE FOR TYPEOUT REASONS 
3; TYPE ASCIZ STRING 

3:GET OVER THE ASCIZ 


7;SAVE STMPO FOR TYPEOUT 
::GO0_ TYPE--OCTAL ASCII 
:3 TYPE 2 DIGIT(S) 

3; SUPPRESS avr ZEROS 
3: TYPE ASCIZ STR 

:;GET OVER THE ASCIZ 


7;SAVE SREGO FOR TYPEOUT 
3:G0 TYPE--OCTAL ASCII 
7: TYPE 6 DIGIT(S) 
7; SUPPRESS LEADING ZEROS 
;ADD 14 FOR NEXT ADDR 

sSEE IF TMPO = # OF DEVICES 
:1F NOT, GO TYPE NEXT ADDR 
TYPE <CR><LF> 
;SEE IF THERE ARE 4 DEVICES 
:1f NOT,SKIP THE TYPE OUT 
sELSE TYPE MSSG FOR 4TH DEV 


PPPS PIII i isi i iii iitiiiisiiitiiiiiiiiiiiiiiiiiiiiiit) 
NO BUS GRANTS ISSUED WITH PROCESSOR AT HIGHER PRIORITY THAN BUS REQUEST 
s*THIS TEST IS TO INSURE THAT ANY REQUEST IS NOT 

;*HONORED AS LONG AS THE PROCESSOR IS AT THE SAME OR 


;*TEST 1 


; *HIGHER 


PRIORITY 


FRRAAAAARAAA AAA AAAAERAKAAEAEKAA HAHA AAAe Ae eee 


TST1: 
NG: 


SCOPE 
JSR 


PC,CLRREG 


#ERRCHK ,@BEIVEC 
#PR7, @BE1PSW 
#TYMOUT ,ERRVEC 
#PR7,RO 
#2021,R1 


CLEAR CONTENTS OF ALL AVAILABLE DEVS 


SET UP DEVICE 1 INTR VECTOR 

SET UP DEVICE 1 PSwW VECTOR 

SET UP TRAP THRU LOC 4(TIME OUT VEC) 
;MOVE PS=7 TO RO 

MOVE FUN 1=DATI-BR7 TO R1 
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003546 004737 010636 :00 NOG 

;MOVE PS=6 TO RO 

;MOVE FUN 1-DATI-BR6 TO R1 
DO NOG 


[MOVE PS=5 TO RO 
[MOVE FUN 1-DATI-BRS TO R1 
DO NOG 


[MOVE PS=4 TO RO 
:MOVE FUN 1=DATI-BR4 TO R1 


.NOG :00 N 
175762 #81711, aBE1CR1 ;SET BIT 11 TO DO FUN 3 
000040 175754 #BITOS,aBE1CR1 ;SET OFF DEV AT NPR LEVEL 
003632 000240 ALLOW TIME FOR XFER 


PSI Tier irri iii titi iti iii ii iiiiiiiiiiiiiiiiiiiiiit) 

s*TEST 2 ISSUING OF NON-PROCESSOR GRANTS AND ARBITRATION TESTS 
s*THIS TEST WILL REQUEST ON NPR THRU BR4 LEVELS 
:*WITH THE PROCESSOR STATUS INITIALLY AT LEVEL 7 AND MAKE 
;*SURE THE DEVICE EXERCISES AN NPG TO DO A FUN 1-DATI, 
:*THEN THE REQUESTS WILL BE REPEATED WHILE SEQUENTIALLY 
s*LOWERING THE PROCESSOR STATUS FROM 7 TO O TO ALLOW 
;tARBITRATION OF ALL REQUESTS AND THE ISSUING OF NPG 

POPPE STITT IPI cits itil itistiitiiiiiiiitiiti iti ii ii titi it) 


003634 000004 TST2: SCOPE 


NPRTST: 
012700 000340 2 #PR7,RO 
123737 001115 001103 SERMAX,SERFLG ;MAX ERRS FOR THIS TEST OCCURRED? 
TST3 ;:BR IF YES TO NEXT TEST 
000340 177776 #PR7,PSW s INITIAL PS 
#ERRCHK @BETVEC ;SET UP VECTOR LOCATION 
#PR7,@BE1PSW ;SET UP DEVICE INTR PSwW 
#ATEND,@BE1BA SET UP ADDR REG 
#-1, aBe ICC ;SET CYCLE COUNT = 1 
175670 #2077, @BE1CR1 ;LOAD #2077 FUNTIONS 
177776 RO,PSW ;LOWER PROC STATUS 


177777 =175652 #-1,aBE1CC SEE IF DEVICE WENT OFF 

SS :1F IT DIO,SKIP ERR TYPEOUT 
175650 001160 @BEICR1,SREGO ;NEXT MOVES ARE FOR TYPEOUTS 
175636 001162 @BE1CC,SREG! 
000340 001164 #PR7,SREG2 
001166 RO, SREG3 

3 TYPE ERROR MESSG 


000040 ; | #40,R0 SLOWER PS ey 1 LEVEL 
000000 RO,#PRO ;SEE IF RO IS LESS THAN O 
100323 2$ :1F PLUS ,GO Noack AND DO ANOTHER CYCLE 


OTITIS iil riiiililiiiiitiiiiiiiiiiiiliiiiiiitiiiity 
s*TEST 3 ISSUING OF BUS GRANT 7 AND ARBITRATION TESTS 
*THIS TEST WILL ARBITRATE FOR A BG7, 
;*THE REQUESTS WILL BE ON LEVELS BR7 THRU BR4, DOING 
;*FUN 1-DATI TRANSFERS, AND THE PROCESSOR STATUS 
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s*LOWERED SEQUENTIALLY FROM 7 TO 0. 
FRRARERAAAAAR AERA AAR AERA AE EAE REE EAERTERRE RAE ARK KeEREE 
003774 000004 TST3: 
BR7TST: 
012700 000300 * #PR6,RO :2ND PS WILL = 6 
123737 001115 001103 SERMAX,SERFLG ;MAX ERRS FOR THIS TEST OCCURRED? 
TST4 ::BR IF YES TO NEXT TEST 
000340 177776 #PR7,PSW s INITIAL PS 
WERRCHK ,@BETVEC ;SET UP VECTOR LOCATION 
:SET UP DEVICE INTR PSW 
UP ADDR REG 
#-1, aBE ICC :SET CYCLE COUNT = 1 
175530 #2037,aBE1CR1 :LOAD #2037 FUNTIONS 
010037 177776 RO,PSW [LOWER PROC STATUS 


022777 177777 175512 #-1,aBE1CC SEE IF DEVICE WENT OFF 
5$ :1F IT DID,SKIP ERR TYPEOUT 
175510 001160 @BEICRI,SREGO ;NEXT MOVES ARE FOR TYPEOUTS 
175476 001162 @BE1CC,SREGI 
000340 001164 #PR7,SREG2 
001166 RO,$REG3 
* TYPE ERROR MESSG 


162700 000040 #40,R0 SLOWER PS BY 1 LEVEL 
020027 000000 RO,#PRO :SEE IF RO IS LESS THAN 0 
100323 2$ : IF PLUS ,GO BACK AND DO ANOTHER CYCLE 


FERRARA AAEAAAEAATAAATAATAAKeRE Ree eeeeeekekeeeeeeeeeeeenenese 
PeTEST 4 ISSUING OF BUS GRANT 6 AND ARBITRATION TESTS 
:*THIS TEST WILL ARBITRATE FOR A BG6, 
S*THE REQUESTS WILL BE ON LEVELS BR6 THRU BR4, DOING 
;*FUN 1-DATI TRANSFERS, AND THE PROCESSOR STATUS 
S*LOWERED SEQUENTIALLY FROM 6 TO 0. 
FERAAAAAARAHAAATAEAAAHAA ATTA KAAKAKE KEKE Kee eee ReeeeeeeeeReteeene 
000004 TST4: 
BR6TST: 
012700 000240 " #PRS,RO :2ND PS WILL = 5 
123737 001115 001103 SERMAX, SERFLG :MAX ERRS FOR THIS TEST OCCURRED? 
1 TST5 ::BR IF YES TO NEXT TEST 
177776 #PR6.PSW INITIAL PS 
#ERRCHK @BEIVEC ;SET UP VECTOR LOCATION 
:SET UP DEVICE INTR PSW 
SET UP ADDR REG 
1,aB61 SET CYCLE COUNT = 1 
175370. [LOAD #2017 FUNTIONS 
177776 RO.PS SLOWER PROC STATUS 


177777 =175352 #-1,aBE ICC SEE IF DEVICE WENT OFF 
5$ z1F IT DID, SKIP ERR TYPEOUT 
175350 001160 @BEICRI.SREGO  ;NEXT MOVES ARE FOR TYPEOUTS 
001162 @BE1CC,SREG! 
001164 #PR6,SREG2 
001166 RO, SREGS 





LL é 
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104005 ERROR 5 ; TYPE ERROR MESSG 


162700 000040 #40,R0 sLOWER PS BY 1 LEVEL 
020027 000000 RO,#PRO ;SEE IF RO IS LESS THAN 0 
004272 100323 2$ :1F PLUS ,GO BACK AND DO ANOTHER CYCLE 


FRR ARERR A RARER AAE RATATAT EEEEEAERERERERARAKEREKERAEKEREREE 
SeTEST 5 ISSUING OF BUS GRANT 5 AND ARBITRATION TESTS 
s*THIS TEST WILL ARBITRATE FOR A 865, 
;*THE REQUESTS WILL BE ON LEVELS BRS THRU BR4, DOING 
:*FUN 1-DATI TRANSFERS, AND THE PROCESSOR STATUS 
S*LOWERED SEQUENTIALLY FROM 5 TO 0. 
FERRARA AAAEAAARAEAAAAAAAAAAAAAA AERA AAR RERRKAREKEE 
000004 TSTS: 
BRSTST: 
012700 000200 “ #PR4,RO ;2ND PS WILL = 
123737 001115 001103 SERMAX,SERFLG ;MAX ERRS FOR THIS TEST OCCURRED? 
TST6 ;:BR IF YES TO NEXT TEST 
000240 177776 #PR5,PSW SINITIAL PS 
#ERRCHK @BETVEC ;SET UP VECTOR LOCATION 
UP DEVICE INTR PSW 
UP ADDR REG 
: 7SET CYCLE COUNT = 1 
175230 #2007,a@BE1CR1 LOAD #2007 FUNTIONS 
177776 RO, PSY SLOWER PROC STATUS 


177777 =175212 #-1,aBE ICC SEE IF DEVICE WENT OFF 

5$ c1F IT DID, SKIP ERR TYPEOUT 
175210 001160 @BEICRI,SREGO ;NEXT MOVES ARE FOR TYPEOUTS 
175176 001162 @BE1CC,SREG1 
000240 001164 #PRS,SREG2 
001166 RO, SREGS 

6 TYPE ERROR MESSG 


000040 #40,R0 ;LOWER PS BY 1 LEVEL 
000000 RO,#PRO ;SEE IF RO IS LESS THAN 0 
100323 23 :1f PLUS .GO BACK AND DO ANOTHER CYCLE 


FECA AAAAAAAHAARA HAHAHAHAHA AEKEKEAAAAAeeAeeAKeeeeeeeeeeeeeese 
Z*TEST 6 ISSUING OF BUS GRANT 4 AND ARBITRATION TESTS 
;*THIS TEST WILL ARBITRATE FOR A BG4, 
;*THE REQUESTS WILL BE ON LEVEL BR4, DOING 
S*FUNC 1-DATI TRANSFERS, AND THE PROCESSOR STATUS 
T*LOWERED SEQUENTIALLY FROM 4 TO 0. 
PITITIIIITITITITI TTT TLL 
000004 TST6: 
BR4TST: 
012700 000140 #PR3,RO ;2ND PS WILL = 3 


28: 
123737 001115 001103 Senend .SERPLS ;MAX ERRS FOR THIS TEST OCCURRED? 
100451 TST? >: BR If YES TO NEXT TEST 

012737 000200 177776 #PR4 PSY INITIAL PS 

012777 004730 175172 #ERRCHK, @BE1VEC ;SET UP VECTOR LOCATION 
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012777 000340 175166 #PR7,@aBEIPSW SET UP DEVICE INTR PSW 
020342 175102 #WATEND,@BE1BA ;SET UP ADDR REG 
177777 =175072 #~1, aBE ICC SET CYCLE COUNT = 1 
002003 175070 #2003,a@BE1CR1 ;LOAD #2003 FUNTIONS 
010037 177776 RO,PSW ;LOWER PROC STATUS 


022777 177777 175052 #-1,aBE1CC SEE IF DEVICE WENT OFF 
5$ :IF IT DID,SKIP ERR TYPEOUT 
175050 001160 @BEICR1,SREGO ;NEXT MOVES ARE FOR TYPEOUTS 
175036 001162 @BE1CC,SREG1 
000200 001164 #PR4,SREG2 
001166 Vv RO, SREG3 
104007 3 7 ; TYPE ERROR MESSG 
162700 000040 #40,R0 ;LOWER PS BY 1 LEVEL 
020027 000000 RO,#PRO ;SEE IF RO IS LESS THAN 0 
100323 BPL 2s :1F PLUS ,GO BACK AND DO ANOTHER CYCLE 


pReeeeeeeeeeeeereeeeeereeeeeeeeeeeeeetereeeeereeeeeenerereeeeeee 


peteeeeeeedeeererereeeeeeerteeeeeeeeeeerereteereneeeteeeeeeerere 
s*TEST 7 CPU TEST FOR NO SACK TIME OUT 
:*THIS TEST WILL CHECK THAT THE CPU TIMES OUT AND 
:*DROPS A GRANT IF NO SACK SIGNAL IS RECEIVED 
s*IF THE CPU TIME OUT IS INOPERATIVE, THE BUS EXERCISER 
;*WILL TIME OUT AND SEND THE SACK SIGNAL TO PREVENT 
tA BUS HANG AND SET AN ERROR FLAG IN CR2 


FERAAAAAAAAAASAAAAAASERERAAAA AAA AAAAAKAAAATAAAAAAAARERAKERARAAES 


TST?: 
J PC, CLRREG ;CLEAR CONTENTS OF ALL AVAILABLE DEVS 
174772 ;SET CYCLE COUNT = 1 
;SET UP DEVICE REG ADDR 
PSw :SET PS=7 
#TYMOUT, ERRVEC ;SET UP TIME OUT VECTOR 
#ERRCHK @BE 1VEC :SET UP DEVICE INTR VECTOR 
#PR7 , @BEIPSW :SET UP DEVICE INTR PSW 
#81703, aoe cae 7 INHIBIT SACK RETURN 
#6003, aBE ICRI 3700 FUN 3--BR4 
177776 #PR3, PSw ;LOWER PROC. STATUS TO 3 
PC, CNTR ;DELAY FOR TIMEOUT 
174710 BIC #BITO3,@BEICR2 ;ALLOW FUTURE SACKS 
@BE1CR2 ;CHECK IF NO-NO SACK BIT IS SET 
TST10 771f NOT SET, GO TO NEXT TEST 
174672 001160 @BEI1CR1,SREGO ;MOVE FOR TYPEOUT REASONS 
174670 001162 @BE1CR2,$REG1 sMOVE FOR TYPEOUT 
12 sERROR IF te FORCED TO SEND SACK 
TST10 260 TO NEXT TEST 
PRAHA AHA AA AAA AAAEKAAERAERAAAAAAAAAAAAeReeeeeReee eee 
FRMAAHAAAAAAAAA AAA AAAAAAATAAARAAAAAAAKERAAAReAKeReeeeeeeeeeeee 
ERRCHK: 
001574 174654 ALLERR,@BEICR2 ;CHECK FOR ANY ERRS IN CR2 
5$ z1F NONE, EXIT 


E 
(SP), SREGS FOR TYPEOUT OF PC 
001204 #1, STHP4 INDICATOR FOR DEVICE 1 
PC,ERRTN :CHECK TO SEE IF ANY ERRORS OCCURED 


EXIT TRAP 
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ER 
26-APR-78 17:02 CPU TEST FOR NO SACK TIME OUT SEQ 0026 
SRA RARER EE EAA E AREER EATER TERE EE REE REE REREEEEERE REESE 
:*TEST 10 CPU TEST FOR RECEIVING SACK 
s*THIS TEST IS TO INSURE THAT THE CPU CAN RECEIVE THE 
>*SACK SIGNAL; THE TIME DELAY WILL BE SET ON DEVICE 1 
;*AND SEVERAL DATI TRANSFERS MADE, IF THERE IS NO BUS 
;*LATE ERROR, THE CPU RECEIVED SACK CORRECTLY 
:*I1T IS ASSUMED THAT DEV 1 TIME DELAY IS SET FOR 10 US 
SRR AARARAEAAAAE EATER ERE EER AEE ERATE EERE EEERREREARERERERE EEE 
000004 TST10: SCOPE 
012737 000340 177776 MOV #PR7,PSW 3Ps = 7 
004737 002700 JSR PC, CLRREG ;CLEAR ALL DEVICE REGISTERS 
012702 020342 MOV #ATEND,R2 ;R2 WILL POINT TO END OF PROG 
012705 000010 MOV #10,R5 3RS = # OF TEST WORDS TO CREATE 
004737 011030 JSR PC ,DOUP ; CREATE THOSE TEST WORDS 
012777 004730 174642 MOV #ERRCHK ,@BEIVEC ;SET UP VECTOR LOCATION 
012777 000340 174636 MOV #PR7,@BE1PSW 7SET UP DEVICE INTR PSW 
012777 177770 174550 MOV #-10,aBE1CC 3SET UP CYCLE COUNT 
012777 020342 174544 MOV #ATEND,@BE1BA ;SET UP ADDR REGISTER 
052777 040000 174544 BIS #BIT14,@BE1CR2 ;SET BIT 14 OF CR2 FOR TIME DELAY 
012777 024441 174532 MOV #24441,aBE1CR1 ;D0 FUN 2=-DATIP/NO ROL-NPR 
012737 000000 177776 53 MOV #PRO,PSW ;LOWER PS TO ALLOW INTERRUPTS 
105777 174520 TSTB aBE1CR1 ;SEE IF DONE BIT SET 
100375 BPL 5$ ;1F NOT, GO BACK AND WAIT 
042777 040000 174514 BIC #BIT14,aBE1CR2 ;ELSE CLEAR BIT 14 OF CR2 
022777 000010 174474 CMP #10,aBE 108 ;DID LAST XFER MOVE 10 INTO DB 
001407 BEQ 10$ :IF IT DID,GO TO 10$ 
017737 174466 001162 MOV @BE 108, $REG1 sELSE MOVE FOR ERR TYPE OUT 
012737 000010 001164 MOV #10, $REG2 
104034 108 ERROR 34 ; TYPE ERR MSSG 
032777 004000 174460 BIT #B1T11,a@BE1CR2 ;SEE IF NO SSYN ON INTR ERR SET 
001402 BEQ TST11 z:1F NOT SET, GO TO NEXT TEST 
104023 ERROR 23 sELSE TYPE ERR MSSG 
000400 BR TST11 7; THEN GO TO NEXT TEST 
FRRAAAAAARAAHAAA TATRA KE HHA HeKAee He eeATeeReKeeeteeeeeenereneee 
s*eTEST 11 PASSING OF GRANTS AND INTERRUPT TEST 
s*THIS TEST WILL SET OFF ALL AVAILABLE DEVICES SIMULTANEOUSLY 
s*WHOSE ONLY FUNCTIONS WILL BE TO INTERRUPT, THE REQUESTS 
:*WILL ALL BE AT LEVEL 7 SO THAT THE DEVICE CLOSEST TO THE CPU 
s*SHOULD RECEIVE BG7 FIRST AND INTERRUPT FIRST, THE NEXT 
:*CLOSEST SHOULD INTERRUPT NEXT AND SO ON. 
s @eeeecnnccccccecconceceeenceceeeesecoocceeeeeceesseecccceeececs 
000004 TST11: SCOPE 
012737 000340 177776 MOV #PR7,PSwW iPS=7 
004737 002700 oapt JSR PC, CLRREG ;CLEAR CONTENTS OF 4LL AVAILABLE DEVS 
L : 
012704 001702 MOV @DEVS,R4 ;DEVS CONTAINS SEQUENCE OF pores DEVICE ADDRS 
012777 005402 174472 MOV @INTRI,@BEIVEC ;SET UP DEVICE 1 INTR VECTO 
012777 000340 174466 mOV #PR7 @BEIPSw ;SET UP INTR PSu 
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005174 012777 000036 174404 #36,a@BE1CR1 ;D0 FUN 0 = BR7 THRU BR4 
000001 001700 #1,DEVCNT :1F ONLY 1 DEVICE ON BUS 
B GO BRANCH TO GO 
005420 174444 WINTR2,@BE2VEC ;SET UP DEVICE 2 INTR VECTOR 
000340 174440 m #PR7,@BE2PSW ;SET UP DEVICE 2 PSW VECTOR 
000036 174366 #36 ,aBE2CR1 ;00 FUN 0 = BR7 THRU BR4 
000002 001700 #2,DEVCNT :IF ONLY 2 DEVICES ON BUS 
B GO BRANCH TO GO 
005436 174416 #INTR3,@BESVEC ;SET UP DEVICE 3 INTR VECTOR 
000340 174412 mM #PR7 ,@BE3PSu sSET UP DEVICE 3 PSW VECTOR 
000036 174350 #36,aBE3CR1 ;D0 FUN 0 = BR7 THRU BR4 
000003 001700 #3,DEVCNT ;IF ONLY 3 DEVICES ON BUS 
001411 GO BRANCH TO GO 


012777 005454 174370 #WINTR4 ,@BE4VEC ;SET UP DEVICE 4 INTR VECTOR 
012777 000340 174364 #PR7,aBE4PSW SET UP DEVICE 4 PSW VECTOR 
012777 000036 174332 #36, aBE4CR1 ;00 FUN 0 = BR7 THRU BR4 


005001 R1 ;CLEAR R1 FOR COUNTING 
174250 @SIMLGO SET SIMULTANEOUS GO REGISTER 
000000 177776 #PRO,PSW ;LOWER PS TO ALLOW INTERRUPTS 
011046 J PC,CNTR ;ALLOW TIME FOR INTERRUPTS BY COUNTING 
001700 CMPARE : R1,DEVCNT ; COMPARE THE TWO 
B TST12 :;1F BUFFERS INCREMENTED IN CORRECT SEQUENCE, GO TO NEXT 
001702 001162 DEVS, S$REG1 sMOVE FOR TYPEOUT REASONS 


001704 001164 DEVS+2,$REG2 § ;MOVE FOR TYPEOUT REASONS 
001706 001166 DEVS+4,$REG3 § :MOVE FOR TYPEOUT REASONS 
001710 001170 DEVS+6,$REG4 § ;MOVE FOR TYPEOUT REASONS 
10 :TYPE ERR MSSG 
005400 000440 BR TST12 ::G0 TO NEXT TEST 
FERRARA RAE AEE AEE AEE ATER AAA E EAE AAT ARERR AAREAAEEAAERAEREKAEEE 
FERRARA AEA AAERARAERAAARAREEKAEKREEEKEEEE 
005402 INTR1: 
005201 R1 ;ADD 1 TO COUNTER ON INTR 
013724 001600 BE1DB,(R4)+ :MOVE ADDR FOR TYPEOUT 
012737 000001 001204 #1, STMP4 : INDICATOR FOR DEVICE 1 
000424 B INTRIN :BRANCH TO REST OF INTR RIN 


005201 R1 ;ADD 1 TO COUNTER ON INTR 
013724 001614 BE2DB, (R4)+ ;MOVE ADDR FOR TYPEOUT 
012737 000002 001204 #2,$TMP4 ; INDICATOR FOR DEVICE 2 
000415 B INTRTN BRANCH TO REST OF INTR RIN 


005201 R1 ADD 1 TO COUNTER ON INTR 
013724 001630 BE3DB,(R4)+ ;MOVE ADDR FOR TYPEOUT 
012737 000003 001204 #3, STMP4 : INDICATOR FOR DEVICE 3 
000406 B INTRIN BRANCH TO REST OF INTR RIN 


INTR4: 
005201 R1 ;ADD 1 TO COUNTER ON INTR 
013724 001644 BE4DB, (R4)+ ;MOVE ADDR FOR TYPEOUT 
012737 000004 001204 — M #4, STMP4 s INDICATOR FOR DEVICE 4 

N N: 
011637 001172 M (SP), $REGS sFOR TYPEOUT OF PC 
004737 010406 PC,ERRTN ;SEE IF ERROR CAUSED INTR 

005500 000002 EXIT 
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RAR REAR ATE AAA AERA A ATTA A AEE EE ETE T TATA E TERRE eee Eee Eee eee 
s*TEST 12 ADDRESS LINES (14 = 17) CHECK 
s*THIS TEST WILL CHECK BUS ADDRESS LINES 14 THRU 17 
;*BY DOING A FUN 1-DATI-NPR TO THOSE ADDRESSES 
;*IF THE ADDRESSES DON'T EXIST THE INTERRUPT ROUTINE 
;*WILL IGNORE ANY NO SSYN ERROR. 
PRR RAAT RATER AREA TARR ETE REAR TE RTARTA TEETER EERE REE REE EEE 


005502 000004 TST12: SCOPE 


005504 004737 002700 PC,CLRREG :CLEAR CONTENTS OF ALL AVAILABLE 
000140 177776 #PR3,PSW ;PS=3 
005604 174134 #BRK ,@BEIVEC SET UP DEVICE INTR VEC 
012777 000340 174130 #PR7,aBE1PSW SET UP DEVICE PSW VEC 


004737 011074 C,ADLI TEST ADDR LINES 14 815 
000001 174046 ni ,@BE1CR2 sELSE SET BIT 0 OF CR2(ADDR LINE 
011074 PC;ADLI 
000001 174034 #1,aBE1CR2 CLEAR BIT OCADDR LINE 16) 
000002 174026 #2,aBE1CR2 ;SET BIT 1 OF CR2(ADDR LINE 17) 
011074 PC,ADLI 
005570 152777 000003 174014 #3,aBE1CR2 ELSE SET BITS 0 AND 1 OF CR2 


;SETS ADDR LINES 16 & 17 
005576 004737 011074 PC,ADLI 
005602 000431 TST13 3:G0 TO NEXT TEST 
SERA RARER AREER EEA AA EEA TAA ERERARERKEAKEEKKEREE 
SRR AAAAAAEE EAE A AEE AE EEE A EEE E EEA E AA EAAE EAA AAREEAAEAEKEEKREKERAAEAEE 
005604 BRK: 
011637 001172 (SP), $REGS ;FOR TYPEOUT OF PC 
000001 001204 #1,STMP4 ; INDICATOR FOR DEVICE 1 
007340 173766 #7340,aBE1CR2 ;CHECK FOR ALL ERRS EXCEPT NO SSYN ERR 
1$ :IF ANY ARE SET,SEE WHICH ONES 
173756 @BE1CLR sELSE CLEAR THE NO SSYN ERR 
000414 EXBRK ;AND EXIT 


017737 173746 001162 @BE1CR1,$REG1 ;MOVES ARE FOR TYPEOUTS 

017737 173744 001164 @BE1CR2,$REG2 

017737 173730 001166 @BE1BA,$REG3 

104011 11 ERR ON ACCESSING A14 = Al7 

004737 010406 J PC, ERRIN ;D0 ERR CHECK SUB-ROUTINE 
005664 000002 EXBRK: sEXIT 


oo 


DWNAUSWNM —$ O O@DNAUESWN "OO OONO 


SURAT AAA AAA A EAA AREAAEAAAAAAERERAAERAEKAEKAAAAEKEEE 
T*TEST 13 CPU TEST FOR ACLO/DCLO SEQUENCE 
;*THIS TEST CHECKS THE ASSERTION OF ACLO AND DCLO 
:*AND THAT THE CPU TRAPS TO THE CORRECT SERVICE ROUTINE, 
:*IF THIS PROGRAM IS RUNNING UNDER ACT11 THIS TEST 
;*WILL BE SKIPPED. 
FERRARA A RAAT AA AREA AAA AAREAARAAAAAARAAREAARERAREKKEREEAEE 
005666 000004 TST13: 
012737 000001 001210 #1, STIMES 3:00 1 ITERATION 
005737 000042 42 :SEE IF PROGRAM IS UNDER ACT11 
001061 TST14 :;1F UNDER ACT, DO NOT PERFORM THIS TEST 
005704 012705 000001 #1R5 :INIT R5 WITH A VALUE OF 1 


ee ee ee ed a od 


MMMMNP NN NP 3 @ 2 PO OS SS HOO 
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005710 005205 R5 ;ADD 1 TO RS 
6$ ;KEEP ADDING AS LONG AS R5 “OS 
000001 001204 #1,STMP4 ; INDICATOR FOR DEVICE 1 
177776 #PR7,PSW :SET PS=7 
173722 #WERRCHK @BEIVEC ;SET UP INTR VECTOR 
173716 #PR7,aBE1PSwW ;SET UP DEVICE INTR PSW 
STMP1 = CLEAR TEMPORARY REGISTER(TMP1) 
000024 #TMPPWR,PWRVEC ;SET UP SPECIAL POWER RIN 
173626 #BIT04,@BE1CR2 ;INDICATE PWR FAILURE BY SETTING BIT 4 
PC,CNTR sPAUSE FOR TIME 
000024 #PWRFAL,PWRVEC ;RESTORE PWRFAL SEQ FOR A PWR FAIL 
042777 000020 173606 ane #BIT04,@BE1CR2 ;MAKE SURE BIT 4 IS CLEARED 
FAILCK: 
006004 022737 001152 020320 C #SNULL , SPWRMG ;IF THIS TEST IS CAUSE OF 
;PWR FAIL --TYPE NULL CHAR 
006012 001401 XTST ;1F EQUAL, EXIT TEST 
006014 104013 13 ; TYPE ERR MSSG IF FAILURE 
006016 XTST: 
006016 012737 020332 020320 #SPOWER,SPWRMG ;RESTORE TYPE OUT OF ‘POWER’ 
006024 000410 B TST14 3:G0 TO NEXT TEST 
PRRRRAAAAAA AAA A RAAT AA AEA AERA RAAT AAR AREER AAAARE AERA AR AR EE 
SRRRAA AAA TARA AAA ATA A RAAT ARATE AAA AAA AAA AAA R eee eee eee 
006026 TMPPWR: ;SPECIAL PWR RTN; OTHER THAN SYSMAC'S 
006026 012737 001152 020320 MOV #SNULL , SPWRMG > CHANGE PWR MSSG TO NULL CHAR 
006034 042777 000020 173550 BIC #BIT04,@BE1CR2 ;CLEAR POWER DOWN/UP BIT 
006042 000137 020202 JMP SPWRDN 3;GO TO THAT RIN 


FRR A ERATE ERATE AAA RAAAREREEEEEKKEEEE 
T*TEST 14 PARITY ERROR TEST 
:*THIS TEST WILL CAUSE PARITY ERROR AND CHECKS 
:*THAT THE CPU TRAPS TO THE CORRECT VECTOR. 
;*THIS TEST SHOULD BE DESELECTED IF THE MEMORY 
;*PARITY OPTION IS NOT PRESENT, ELSE AN 
:*ERROR WILL BE REPORTED ALTHOUGH HARDWARE IS 
> *FUNCTIONING PROPERLY. 
:*$W06=1 INHIBIT TEST 14 AND GO TO NEXT TEST 
SERA AAA EAE AAA AAA AEE TAA EEE TEE AEE EEE AAEAAERERAEAKEAREEKKEARKEE 
006046 000004 TST14: 
000100 173060 #BITO6, @SWR =; INHIBIT TEST 14? 
TST15 :GO TO NEXT TEST 
006270 000010 :SET UP RESERVED INSTR VECTOR 
000340 000012 :PSW=7 
001202 :SET STMP3 = 0 
:SET N BIT OF CC 
001202 ;1F VALID INSTR, $STMP3 WILL = -1 
001202 SIF INVALID, $TMP3 WILL REMAIN 0 
:1F CP NOT= 35,40,45,0R 70,60 TO NEXT TEST 
000140 177776 =3 


173530 #PBERR,@BEIVEC ; UP DEVICE INTR 

000114 #PBRIN,PBVEC ; UP PARITY BIT VECTOR 

000116 #340, PBPSW ;SET UP PARITY BIT PSW 

173432 WATEND,@BE1BA ; UP ADDR REG 

173422 #~1, aBE ICC : UP CYCLE COUNT 

173424 #B1T12,aBEICR2 ; BIT 12 FOR PARITY ERROR 
006166 005777 173420 aBeE1CR2 ; OFF PARITY ERR SEQUENCE 
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MOV #13161,@BE1CR1 ;TRY FUN 1-DATO FROM CC-NPR-INTR ON DONE(7) 
NOP ;ALLOW TIME FOR ATTEMPTED XFER 

MOV #PBPSW,PBVEC ; RESTORE 

MOV #0,PBPSW ; TRAP CATCHER HERE AND 

MOV #12,10 ;AT RESERVED 

MOV #0,1 ; INSTRUCTION VECTOR 

BR TST15 ;;BRANCH TO NEXT TEST IF PARITY TRAP OCCURRED 
MOV (SP), $REG5S FOR TYPEOUT OF PC 

ERROR 14 TYPE ERR MSSG IF DEVICE INTERRUPTED 

MOV #1,STMP4 ; INDICATOR FOR DEVICE 1 

JSR PC, ERRIN ;CHECK TO SEE IF ANY ERRORS OCCURED 

RTI EXIT TRAP 


FRR AA AREA AEE AAT E TET EAAEEAAEAAER AERA REE AAEARAEKAEEREKKEE EKER 
FERRARA AREA EAE E AREER AERA EAAREEKERKEEEKKKEKE 


PBRIN: 


NODO: 


;PARITY BIT TRAP RIN 


MOV #0,aBE1CR2 :CLEAR PARITY BIT ERROR-MUST BE DONE 
;BY MOVING 0(S) TO BEICR2 
se #NXT, (SP) ;SET STACK FOR NEXT TEST 
TI 


SEAR AAA AERA EAETAAAAAREE AAA EEA EAA RERAEREKEE 


;*TEST 15 


TST15: 


5$: 


MULTITRANSFERS I 

s*THIS TEST WILL CAUSE ANY BUS EXERCISERS, UP TO 4, 
:*TO CREATE A LOT OF TRAFFIC ON THE BUS AND 

;*CHECK THAT THE CPU CAN HANDLE IT; ALL DEVICES 


:*ARE SET OFF SIMULTANEOUSLY 


ITTITITITITIITTITILIT TITTLE TTT LLL 


SCOPE 

JSR PC,CLRREG :CLEAR CONTENTS OF ALL AVAILABLE DEVS 
MOV #0,R SET DATA PATTERN = 0 

MOV #177777 ,R4 SET DATA PATTERN = ALL 1'S 

JSR PC,MULT1 LOAD & EXECUTE ALL DEVICES 

CMP #2,DEVCNT ARE THERE MORE THAN 2 DEVICES? 
BPL TST16 :31F 2 OR LESS, GO TO NEXT TEST 
MOV #161610,R3 ELSE LOAD R3 AND R4 WITH 

MOV #016161,R4 ; ANOTHER PATTERN 

CMPB SERMAX,SERFLG  ;MAX ERRS FOR THIS TEST OCCURRED? 
BMI TST16 7;BR IF YES TO NEXT TEST 

JSR PC ROTATE ROTATE DATA PATTERNS 

JSR PC ,MULT1 ;LOAD & wrt tt ALL DEVICES 

CMP #107070,R3 :1S R3 = 107070? 

BNE 5$ 71F NOT, ROTATE AND DO AGAIN 

MOV #167777 ,R3 ZELSE MOVE NEW PATTERNS 

MOV #010000,R4 ; INTO R3 AND R4 

CMPB SERMAX,SERFLG ;MAX ERRS FOR THIS TEST OCCURRED? 
BMI TST16 :;BR IF YES TO NEXT TEST 

JSR PC,ROTATE ROTATE DATA PATTERNS 

JSR PC MULTI :LOAD @ EXECUTE ALL DEVICES 

CMP #167777,R3 :1S R3 = 167777 AGAIN? 

BNE 10$ ;1F NOT,ROTATE AND DO AGAIN 

BR TST16 3:GO0 TO NEXT TEST 


SEQ 0030 





EXERCIS 
-P11 


006422 


006554 


ER 
26-APR-78 


017737 
162737 
012737 
000435 
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173156 
000001 
000001 


173146 
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173136 
000002 
000003 


173126 
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001164 
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001712 
001712 
001204 


001714 
001714 
001204 


001716 
001716 
001204 
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MULTITRANSFERS I 


ASAD RRR RRRRRRRRRRRRRRSEASASESEASSASESE SESE EERE REE REESE ESOS SE SY 


tbe t eRe PROPOR RRR RRR RARRRRAARERRARSASESESA SESE EE EERE SESS ESE SS 


FRR RAE EERE RETA RERERAEA ERE REA ATE AERA ARATE AEE 


SERV1: 


MOV 
SUB 
MOV 


@BE1BA,DATAI 
#1,DATA1 
#1,STMP4 

INK 


@BE2BA,DATA2 
#2,DATA2 

#2, STMP4 

INK 


@BE3BA,DATA3 
#2,DATAS 
#3,STMP4 

INK 


@BE4BA,DATA4 
#2,DATAS 
#4, STMP4 


SREG2 
(SP), $REGS 
PC,ERRIN 


MOVE ADDR IN BE1BA TO DATA! AND 
;SUB 1 TO GET ACTUAL ADDR 

; INDICATOR FOR CEVICE 1 

;BRANCH TO INK 


;MOVE ADDR IN BE2BA TO DATA2 AND 
;SUB 2 TO GET ACTUAL ADDR 

; INDICATOR FOR DEVICE 2 

BRANCH TO INK 


;MOVE ADDR IN BE3BA TO DATA3 AND 
;SUB 2 TO GET ACTUAL ADDR 

: INDICATOR FOR DEVICE 3 

;BRANCH TO INK 


:MOVE ADDR IN BE4BA TO DATA4 AND 
;SUB 2 TO GET ACTUAL ADDR 
; INDICATOR FOR DEVICE 4 


; INCREMENT REG 

;FOR TYPEOUT OF PC 
: CHECK FOR ANY ERRS 
sEXIT 


PEAR AEA EAA A AAR EEE TAARERAEAAEREEKERAEEEEEEE 


FURR AERA ERE AA AAE AERA AAAAERE ATER E RAAT RREEE 


SEQ 0031 


T*TEST 16 MULTITRANSFERS II 
:*THIS TEST WILL HAVE THE AVAILABLE EXERCISERS DOING 
[*VARIOUS TRANSFERS AND/OR INTERRUPTS AT DIFFERENT 
:*REQUEST LEVELS TO FURTHER CHECK CPU HANDLING CAPABILITIES 
PEAR AAAE AAA AE TAA AAAAAAEAAAAARAAERERERAEAEREREKREEERE 
006556 000004 TST16: 
020342 
005000 
011030 
011142 
002700 


000000 


#ATEND,R2 :R2 = 
#5000,R5 
PC ,DOUP 

PC, TSTOVR 
PC.CLRREG 


#PRO,PSW ;PS=0 

#S1,aBE1VEC :SET UP DEVICE 1 INTR VECTOR 

#PR7 ,@BEIPSW ;SET UP DEVICE 1 PSW VECTOR 

ATEND +2000. ape 1BA :SET UP ADDR REG 

#-2000,a8 SET UP CYCLE COUNT 

#15551, SBE ICRI 300 FUN 2-DATOB FROM CC-NPR-INTR ON DONE (6) 
#1, DEVCNT :CHECK FOR MORE THAN 1 DEVICE 

1$ :1F NOT, GO CHECK RESULTS 


:SET UP DEVICE 2 INTR VECTOR 

SET UP DEVICE 2 PSW VECTOR 

;SET UP CYCLE COUNT FOR 1000 XFERS 

;SET UP ADDR REG=1ST LOCATION AFTER PROG 
;D0 FUN 1-DATIP=-NPR-INTR ON DONE (7) 


END OF PROG 

:R5 = THE # OF DATA WORDS 

:CREATE THOSE WORDS IN BUFFER MEMORY 
;SET UP PATTERN IN MEMORY BUFFER AREA 
006600 ;CLEAR CONTENTS OF ALL AVAILABLE DEVS 


006604 


004737 


012737 177776 


000001 
001467 
012777 007376 #S2,aBE2VEC 
#PR7 ,@BE2PSi 
#-1000,aBE2CC 
#ATEND,@BE2BA 
006710 #2561, aBE2CR1 


012777 002561 





EXERCISER 
P11 


006716 
006724 


006726 
006734 
006742 
006750 
006756 
006764 
006772 


006774 


007042 


272 37% 
s/2 s/fe 


svt Bvt 
s/f: ef: 


007046 


007132 


y/* s/t 
y/* s/t 


s/s e7s 
sf: ef 


007134 
007140 
007144 
007146 
007152 
007154 


26-APR-78 


022737 
001444 


012777 


001421 
005037 


012777 


012700 
004737 


sJ@ 3f* 
:/t :/*% 


MACY11 nd 


17:02 
000002 


007430 


000003 


001170 


000021 


001606 
010754 


sf@ 2f* 
s/e :/t 


001700 


172734 


001700 


172666 
172662 
172624 
172626 
172614 


sf/@ 27% 3 
sf/@ 2f@ ¢ 


;BE1 TRANSFER CHECKS 


&/: «/: 


a/: */: 
012702 


000766 


014237 
010237 
013737 
104021 


022737 
001470 


:/t :/* 


:/@ :/e 


a/: %/: 


af: ef: 


022342 
176000 
001712 
001164 
000002 
001162 


001160 
001164 


000001 


:/* :/* 
:/* :/* 


af: ef; 
af: af: 


001164 


001164 


001166 


001700 


sf@ s/@ ; 
s/e 2/@ + 


;BE2 TRANSFER CHECKS 


&/: */; 


a/: /: 
012701 


014137 


e/: */ 


a/: a/; 


020342 
001714 


052525 
001162 


s ef: af: 
a/: #/; 


=: 78 


MULTITRANSFERS II 


#2,DEVCNT 
1$ 


#S3,aBE3VEC 
#PR7,@BE3SPSW 
#-1002,aBE3C 
#ATEND ,@BE3B 
#4005, aBE3CR 
+ aioe: 


SREG4 
#S4,aBESVEC 
#PR7,@BE4PSW 
#-3000,aBE4C 
#B1T14,aBE4C 
#21,aBE4CR1 


#BE1CR1,R0 
PC,BKGD 


sf/@ sf*®_<ft 
wwe ads : 78 


¢ Oss Oe BPs 
¢ aes Of: Of: 


#ATEND+2000, 
#-2000,$REG2 
7 gi 


$ 
SREG2, (R2)+ 
12$ 
#2,$REG2 
10$ 
-(R2),$REG1 
R2,$REGO 
SREG2,$REG3 
21 
#1,DEVCNT 
TST17 
s/@ sf s/e 
s/@ sft 3/0 


¢ @/: @/: @/: 
: ef: ef: ef: 


#ATEND,R1 
DATA2,R1 


6$ 
#052525,(R1) 
5$ 
~(R1),$REG1 


G 3 
14:28 PAGE 27 


CHECK FOR MORE THAN 2 DEVICES 
:1F NOT, GO CHECK RESULTS 


;SET UP DEVICE 3 INTR VECTOR 
SET UP PSW VECTOR 

C ;SET UP CYCLE COUNT 

A ;SET UP ADDR REG 

1 ;00 FUN 2-DATI-BRS5 
;CHECK FOR MORE THAN 3 DEVICES 
:1F NOT, GO CHECK RESULTS 


;USE REGS TO COUNT INTRS 
;SET UP DEVICE 4 INTR VECTOR 
;SET UP PSW VECTOR 

C ;SET UP CYCLE COUNT 

R2 ;SET TIME DELAY BIT OF DEVICE 4 
;D0 FUN 0-BR7 


;USE RO TO POINT TO DEVICE 1'S CR1 
;PERFORM BACKGROUND ROUTINE 


see. af? OF8 3 
3/8 off of® ¢ 


a/3; @/: wf/3 * 
e/: @/: e/: © 


R2 ;USE R2 TO POINT TO 2000 BYTES AFTER END OF PROGRAM 
SET UP SREG2 WITH EXPECTED RESULTS 
;CHECK FOR 4000 BYTES PAST END OF PROGRAM 
:1F EQUAL, GO CHECK FOR ANOTHER DEVICE 
sELSE COMPARE EXPECTED RESULTS WITH THAT IN Re 
:IF NOT EQUAL, GO TO ERR MSSG 
; INCREMENT REG2 AS CC WOULD 
AND GO BACK TO CHECK NEXT LOC 


;MOVE R2 TO REG 5 FOR TYPEOUT 


; TYPE ERR MSSG 


CHECK IF ONLY 1 DEVICE SHOULD HAVE OPERATED 
33<IF EQUAL, GO TO NEXT TEST> 


s/@ sfe 3/® ; 
s/@ sf/@ sf 3 


w/: e/; e/: 
e/: e/; e/: * 


;USE R1 TO POINT TO END OF PROG 
:CHECK FOR 2000 BYTES PAST END 
;1F EQUAL, EXIT 
+  SELSE COMPARE EXPECTED RESULTS WITH R1 
:I1F EQUAL, GO CHECK NEXT LOC 
;MOVE R1 TO REG] FOR TYPEOUT 


SEQ 0032 
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EXERCISER MACY11 30A(1052) Q3-MAY-78 14:28 PAGE 28 
-P11 26-APR-78 17:02 116 MULTITRANSFERS II 


007160 010137 001160 R1,$REGO 
012737 052525 001166 #052525, SREG3 
104020 20 sELSE TYPE ERR MSSG 


022737 000002 001700 #2,DEVCNT ;CHECK IF ONLY 2 DEVICES OPERATED 
007202 001444 TST17 33<IF EQUAL, GO TO NEXT TEST> 


s7@ s7@ ef@ 27e sf/8 e/a 378 3f/*® s7*® 2 : $ s/@ gfe 279% 279 s/® sf® 5 

s7@ ef@ 278 c7@ of8 378 sf® BFR 3 : : ; rye cyt aft s7f 2ft 3F* + 
ag se RGUTINE 

sy: G7? fe OSt OF4 OSE RI : é ~ : Os OSs Bt Bt OF: A7e 9 

sf3 G7 ad. t ef; @/: ef: e/: : : s ¢ O7s Bt O73 272 OF: OFE 


007204 105777 172426 : aBE3CR1 CHECK IF DEVICE 3 DONE 
100401 208 :1F YES, CHECK NEXT DEVICE 
000774 16$ ;AND GO BACK TO SEE IF DONE YET 


022777 176002 172406 #-1776,aBE30B  ;CHECK FOR CORR VALUE IN BE3DB 
001407 258 IF EQUAL, SKIP ERR TYPE OUT 
017737 172400 001162 @BE 308, $REG1 ;MOVE FOR ERR TYPE OUT 
012737 176002 001164 #-1776,$REG2 

; TYPE ERR MSSG 


104032 32 
022737 000003 001700 #3,DEVCNT CHECK IF ONLY 3 DEVICES OPERATED 
TST17 33<IF EQUAL, GO TO NEXT TEST> 


007250 001421 


sie sfe 3/0 s/@ 3f* sfe 3sf@ sfe ; ¢ : g sf@ gfe cf@ 3 sf@ 2/78 ¢ 

sft 78 27% 272 27% 27% F/T 2f8 2 : : $ s7@ 2/0 278 + sf@ 3f@ ¢ 
:BE4 CHECK ROUTINE 

x72 OF: O73 OF: O/t @7: 272 af: ; : : s ef: ef: Of: 2 of: Of: 8 

s/s C7: @7: O27: ef: Qf: Of2 @/f2 : : ¢ ¢ 873 ef: @/s y wr fe © 


007252 


SEQ 0033 


007306 


007314 
007316 


007324 
007330 
007334 
007336 
007340 
007340 


105777 


104033 
042777 


000004 
012737 


017700 
022700 
001001 
000000 


000137 


172374 
003000 
001170 
003000 


040000 


000001 


171614 
000210 


015446 


001170 
001162 
001164 


172342 


001210 


@BE4SCRI 

22$ 

#3000, SREG4 
268 

SREG4 ,$REG1 


: TEST IF DEVICE 4 IS DONE 

:1F NOT, GO BACK TO DELAY RIN 
CHECK IF REG4 COUNTED 3000 INTRS 
7 IF EQUAL SKIP ERR TYPE OUT 

;MOVE FOR TYPE OUT 


#3000, $REG2 
33 


* : TYPE ERR MSSG 
#B1T14,aBE4CR2 :ELSE CLEAR TIME DELAY BIT 


FURR ARA AREER AEE AE TEAR EAE AEA RATA AAAAEAARERRER EEE 


s*TEST 17 DUMMY END OF PROGRAM 


FERRARA AAA AAA AAA A ARETE EATER AARERERRERARRRKE ARR RE EE 


TST17: 


10$: 


#1,STIMES 
asTKB,RO 


#210,R0 
10% 


SEOP 


;:;D0 1 ITERATION 


;MOVE READ BUFF agi TO RO 
;DOES THE VALUE = 

:1F NOT GO TO 108 
TELSE HALT THE PROGRAM 


PRATER ERATE AAA AAA AAT ARATE TAA RAERARERAARREKRARRERe EEE 


SET UP DEVICE INTR VECTOR 





. 2 
EXERCISER MACY11 setehiosecel” tend -78 14:28 PAGE 29 
-P11 26-APR-78 17:02 DUMMY END OF PROGRAM SEQ 0034 


FURR E AEA A AERA AEE RAE RIERA KERR E ERR KE TEES 


007344 $1: 


007344 017737 172234 001712 @BE1BA,DATAI ;MOVE ADDR IN BE1BA TO DATA1 AND 
007352 162737 000002 001712 2, ;SUB 2 TO GET ACTUAL ADDR 

007360 012737 000001 001204 . SET INDICATOR FOR DEVICE 1 
007366 005777 172214 TEST FOR ERROR 

007372 100041 :1F PLUS, EXIT 

r+ 4b Lay 000434 ZELSE FIND CAUSE OF INTR 

007376 017737 172216 001714 ° :MOVE ADDR IN BE2BA TO DATA2 AND 
007404 162737 000002 001714 ATA ;SUB 2 TO GET ACTUAL ADDR 

007412 012737 000002 001204 ’ SET INDICATOR FOR DEVICE 2 
007420 005777 172176 ; TEST FOR ERROR 

007424 100024 :1F PLUS EXIT 

007426 000417 ;ELSE FIND CAUSE OF INTR 





J 3 
UNIBUS EXERCISER MACY11 30A(1052) OQ3-MAY-78 14:28 PAGE 30 
CZKUAD.P11 26-APR-78 17:02 117 DUMMY END OF PROGRAM SEQ 0035 


007430 53% 

007430 012737 000003 001204 MOV #3, STMP4 SET INDICATOR FOR DEVICE 3 
007436 005777 172174 TST aBE3CR1 ; TEST FOR ERROR 

007442 100015 BPL EXS :1F PLUS, EXIT 





kK 3 
UNIBUS EXERCISER MACY11 30A(1052) OQ3-MAY-78 14:28 PAGE 31 
CZKUAD.P11 26-APR-78 17:02 117 DUMMY END OF PROGRAM SEQ 0036 


1429 007444 000410 BR CHEX sELSE FIND CAUSE OF INTR 
1430 007446 $4: 


1431 007446 005237 001170 INC SREG4 COUNT DEVICE 4°S INTRS 





UNIBUS EXERCISER 
CZKUAD.P11 


26-APR-78 
012737 
005777 
100004 


011637 
004737 


000002 


007452 


007476 


007500 
012702 


001474 
012777 


001451 
012777 


001421 
010477 


012777 
005277 


:/t :/t 
:/* ;/t 


007764 


y/* s/t 
s/t s/t 


007770 012737 


MACY11 seston 


17:02 
000004 
172166 


001172 
010406 


020342 


000001 


006446 


000002 


000340 


000003 


171716 


003104 
171606 
:/t 3/* 
:/t :/t 


000001 


001204 


172056 


001700 


172062 


001700 


172022 
172006 


:/t 3/ 
:/* :/ 


001162 


® 


* :/ 


; BACKGROUND ROUTINE FOR MULTI TRANSFERS | 


* ming” 78 
DUMMY END OF PROGRAM 


EXS: 


MOV 
TST 
BPL 


MOV 
JSR 


RTI 


14: 


3 
28 PAGE 32 


#4, STMP4 
aBE4CR1 
EXS 


(SP), SREG5S 
PC,ERRIN 


;SET INDICATOR FOR DEVICE 4 
; TEST FOR ERROR 
:IF PLUS, EXIT 


;FOR TYPEOUT OF PC 
sELSE FIND CAUSE OF INTR 


PERERA AREA EEA AEE ERE EEA 
SRR R TEETER ETE EERE RAEARERETKKEKEKKEKEE 


MULT1: 


6$: 


:/* 


:/* 


:/* 


:/t 


:/* 


MOV 


s/t 
:/* 


#ATEND,R2 
#5000,R5 

PC ,DOUP 

PC, TSTOVR 
#ATEND ,@BE1BA 
#-2000,aBE1CC 
#SERV1,@BE1VEC 
#PR7,@BE1PSW 
#B1T14,aBE1CR2 
#42560,aBE1CR1 
+ Cea 


#SERV2 ,@BE2VEC 
#PR7,@BE2PSW 
#ATEND ,@BE2BA 
#-1000 ,aBE2CcC 
#24510, aBE2CR1 
> Sue 


#PR7 ,@BE3PSW 
R3,@BE30B 
#SERV3 ,@BE3SVEC 


#ATEND+2000 ,@BE3BA 


#-1000,aBE3CC 

#BI1T14,aBE3CR2 
#3160,aBE3CR1 

+ Saaateel 


R4,@BE4DB 
#PR7 ,@BE4PSW 
#SERV4 ,@BE4VEC 


#ATEND+4000,@BE4BA 


#-1000 ,aBE4CC 
#3104,aBE4CR1 


a@SIMLGO 


:/t :/t 
s/t :/t 


:/* 
:/t 


:/* 
:/t 


#1, $REG1 


;R2 = END OF PROG 

3R5 = THE # OF DATA WORDS 

; CREATE THOSE WORDS IN BUFFER MEMORY 
;SET UP PATTERN IN MEMORY BUFFER AREA 
SET REG ADDR= 
SET CYCLE COUNT FOR 2000 XFERS 
SET UP DEVICE INTR VECTOR 
SET UP DEVICE PSW VECTOR 
SET BIT 14 FOR TIME DELAY ENABLE 

:D0 DATIP/DATOB-FUN 1-NPR-INTR ON DONE (7) 
:1F MORE THAN 1 DEVICE, LOAD THEIR REGISTERS 
ZOTHERWISE BEGIN TESTING 


SET UP DEVICE 2 INTR VECTOR 
SET UP DEVICE 2 PSW VECTOR 


:SET UP ADDR REG FOR SAME LOCATIONS AS DEVICE 1 


;SET CYCLE COUNT FOR A 1000 XFERS 

D0 DATIP/NO ROTATE-FUN 2-BR6-INTR ON DONE (6) 
:1F MORE THAN 2 DEVICES, LOAD THER REGISTERS 
sOTHERWISE BEGIN TESTING 


;SET UP DEVICE 3 PSW VECTOR 

;MOVE PATTERN IN R3 TO DEVICE DATA REG 
SET UP DEVICE INTR VECTOR 

;SET UP ADDR REG 

SET UP FOR 1000 XFERS 

SET BIT 14 FOR TIME DELAY ENABLE 

:00 DATG-FUN 1-FROM DB-NPR-INTR ON DONE (7) 
:IF A 4TH DEVICE, GO AND LOAD REGISTERS 
OTHERWISE BEGIN TESTING 


sMOVE PATTERN IN R4& TO DEVICE DATA REG 
SET UP DEVICE 4 PSW VECTOR 

SET UP DEVICE 4 INTR VECTOR 

SET UP ADDR REG 

SET CYCLE COUNT FOR 1000 XFERS 

;D0 DATO-FUN 1-BRS-INTR ON DONE 


sSTART DEVICES SIMULTANEOUSLY 
s/t :/* : 
:/e s/t: 


;MOVE 1 TO TEMPORARY REG 


1ST LOCATION AFTER END OF PROGRAM 


SEQ 0037 





mM 3 
UNIBUS EXERCISER MACY11 30A(1052) O3-MAY-78 14:28 PAGE 33 
CZKUAD.P11 26-APR-78 17:02 117 DUMMY END OF PROGRAM SEQ 0038 


007776 012701 001162 #SREG1,R1 ;SET UP R1 AS POINTER 
005121 (R1)+ ; COMPLEMENT TEMP REG 
006041 R =(R1) ROTATE CONTENTS RIGHT 
123737 001700 001164 DEVCNT,SREG2 CHECK IF ALL DEVICES ARE DONE 
010014 101372 BHI 7$ :1F NOT, CONTINUE WITH BACKGROUND RTN 


SRR A AERA EAE EAE EREREREREKREEE 


s7@ 27% sft sft 27 sft fe sft sft cf® s/t oft sft sft sft 378 278 27 3 
s7e sJe 3fe sf sf@ sf sf@ sf/e fe sfe sf/e sf s/t 3/0 s/t sf sfe fe s 
:DEVICE 1 TRANSFER CHECKS 
: THERE ARE NO CHECKS FOR BE2 
sft O7e Of: OF: Of: O72 B73 B72 O/s OB/t BF: B73 B/t B/t B/t Bs B/s Of: © 
S73 7s O73 @F2 Of: OF: O73 B/: BF: O73 B/s B/:s O/3 B/s B/s O/:s 8/3 B/: 8 


010016 042777 040000 171566 #BIT14,aBE1CR2 ;CLEAR TIME DELAY BIT 
012700 020342 - #ATEND,RO START CHECKING FOR CORRECT XFERS 
122720 000125 #125, (RO)+ COMPARE LOWER BYTE 
208 :1F NOT EQUAL, BR TO ERR MSSG 
001712 DATA1,RO :1S THIS LAST BYTE COMPARE? 
9$ :IF SO, BR TO 9$ 
000124 #124, (RO)+ sELSE COMPARE UPPER BYTE 
228 :1F NOT EQUAL, BR TO ERR MSSG 
001712 DATA1,RO :1S THIS LAST BYTE COMPARE? 
9$ :1F SO, BR TO 9$ 
000763 8$ ELSE CHECK NEXT ADDR 


105740 ~ (RO) ;SUB 1 TO GET ERR ADDR 
000401 B 24$ :GO DO MOVES FOR ERR MSSG 


005740 -(RO) SUB 2 TO GET ERR ADDR 


011037 001162 (RO) ,SREG1 sMOVES ARE FOR ERR MSSG 
010037 001160 RO, $REGO 

012737 052125 001166 #052125, S$REG3 

104015 15 sELSE TYPE ERR MSSG 


9$: 
022737 000001 001700 #1,DEVCNT IF ONLY ONE DEVICE 
001447 258: B 13$ ;1f NO MORE DEVICES,EXIT RIN 
122737 000002 001700 #2, DEVCNT ;CHECK FOR MORE THAN 2 DEVICES 
010126 001773 25$ :I1F NOT, EXIT TEST 


g/t s/t fe sft sf sfe s/f s/e s/e s/e : 3 s/t s/t s/t s/t s/e s/t: 

s/e s/@ 3s/e@ s/e s/@ s/e@ 3/e s/t sf/e sf/e : $ sfe sf/e@ sf@ sf@ sfe cfe * 
oy mayen ge CHECKS 

3/3: 8/: t/: ef: af: af: af: 8/: : > w/: w/s ef: e/s ef: ef: 

3/3 8/: wh a e/: ef: e/: wf: fs 8/: : > /: ef: ef: ef: a/: /: 8 


010130 042777 040000 171504 WBIT14,@BE3CR2 ;CLEAR TIME DELAY BIT OF DEVICE 3 
022342 #ATEND+2000,RO ;CHECK NEXT 2000 LOCATIONS 
001716 10$: DATAS,RO :CHECK FOR 1000 XFERS 
11$ IF SO, CHECK NEXT BLOCK 
R3,(RO)+ TEST FOR CORRECT PATTERNS 
10$ IF NO ERR, CHECK ANOTHER LOC 
R3,$REG3 :THE MOVE IS FOR TYPEOUT REASONS 
010160 014037 ~(RO),SREG1 


15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 


10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 





N 3 
UNIBUS EXERCISER MACY11 or, * eee” 78 14:28 PAGE 34 


CZKUAD.P11 26-APR-78 17:02 DUMMY END OF PROGRAM SEQ 0039 
1544 010164 010037 001160 MOV RO,$REGO 
1545 010170 104016 ERROR 16 sELSE TYPE ERR MSSG 
1546 010172 11$: 
1547 010172 122737 000003 001700 CMPB #3,DEVCNT CHECK FOR MORE THAN 3 DEVICES 
1548 010200 001416 BEQ 13$ ;IF NO MORE DEVICES GO DO NEXT PATTERN 


s/t s/t s/t sf sf sf sfe s/t fe p/m sft s/t sf sft sf sfe sfe c/a: 
s/t s/t s/t sf sf fe sfe p/m sf sfe sft sft p/m sf s/t sf) s/e s/t : 
ot TRANSFER CHECKS 


s73 ef e/s ef s ef w/w s es eft eft fs es fs Rs fs eft fst 
s73 esi _ e/s afr ef: ef: eft fs eft fs fs fs fs Aft Jt ft fs tk 
1556 010202 012700 024342 MOV #ATEND+4000,RO ;CHECK NEXT BLOCK = _— LOCATIONS 
1557 010206 023700 001720 128: CMP DATA4,RO :CHECK FOR 1000 XFE 
1558 010212 001411 BEQ 13$ :1F SO, CHANGE DATA. PATTERNS & START OVER AGAIN 
1559 010214 020420 CMP R4,(RO)+ ELSE CHECK FOR CORRECT PATTERNS 
1560 010216 001773 BEQ 12$ ;I1F NO ERR, CHECK ANOTHER LOCATION 
1561 010220 010437 001166 MOV R4,S$REG3 3; THE MOVE is FOR TYPEOUT REASONS 
1562 010224 014037 001162 MOV -(RO), SREG1 
1563 010230 010037 001160 MOV RO, $REGO 
1564 010234 104017 ERROR 17 sELSE TYPE ERR MSSG 
1565 010236 138: 
1566 010236 000207 RTS PC 
1567 SATII ITTTTTTTA ATTA AL 
1568 SU 
1569 SATA TTATTTTT TATTLE L 
1570 010240 STVEC: 
1571 010240 005000 CLR RO ;RO IS COUNTER 
1572 010242 012701 010276 MOV #Q1,R1 :R1 IS ADDR OF INTR RTN 
1573 010246 012702 000510 MOV #510,R2 :R2 IS DEV INTR VEC ADDR 
1574 010252 5$: 
1575 010252 010122 MOV R1,(R2)+ ;LOAD INTR RTN INTO INTR VEC 
1576 010254 012722 000340 MOV #PR7,(R2)+ ;LOAD INTR PSW 
1577 010260 062701 000006 ADD #6,R1 ;GET NEXT INTR RIN 
1578 010264 005200 INC RO ; INC COUNTER 
1579 010266 020037 001700 CMP RO,DEVCNT ;ARE ALL AVAILABLE VECS LOADED? 
1580 010272 001367 BNE 5$ ;1F NOT, GO AND LOAD NEXT ONE 
1581 010274 000207 RTS PC sELSE EXIT 
1582 PRRAAAAARA AERA ARERR TERETE EERE 
1583 PARP RRRRRRRERSASESESE ES LE SELES E SESE LEST OLSSCCLSSSLSSCLLCTLCCLCCC. SY 
1584 
1585 ; THE FOLLOWING INTR ROUTINES SHOULD HANDLE ANY ERRORS 
1586 ; WHICH MIGHT OCCUR BEFORE THE PROGRAM HAS A CHANCE TO 
f= of ; PROPERLY CHECK OUT ALL DEVICES AND SET UP THEIR INTR VECTORS 
1589 
1590 010276 Q1: 
1591 010276 012737 000001 001204 MOV #1, STMP4 : INDICATOR FOR DEV 1 
1592 010304 000413 BR xQ 
1593 010306 Qe: 
1594 010306 012737 000002 001204 MOV #2, STMP4 ; INDICATOR FOR DEV 2 
1595 010314 000407 BR xQ 
1596 010316 Q3: 
1597 010316 012737 000003 001204 MOV #3, STMP4 ; INDICATOR FOR DEV 3 
1598 010324 000403 BR xQ 


1599 010326 Q4: 


EXERCIS 
P11 


010326 
010334 


010334 
010340 


010342 


010402 


010406 
010406 
010410 


010530 


ER 
26-APR-78 


012737 


004737 
000002 


010146 
010046 
012700 
005001 


042770 


000137 


104407 
012700 
105005 


105205 
062700 
120537 
001372 


105770 
100001 
104022 


032770 


104023 


132770 
001401 
104024 


132770 
001401 
104025 


032770 
001401 
104026 


032770 
001401 


MACY11 _— 


17:02 
000004 
010406 


001612 


000020 
000014 


001700 


020202 


001576 


000014 


001204 


000000 


007540 
004000 


000040 


000100 


000400 


001000 


001204 


000000 


000000 
000000 


000000 


000000 


000000 


000000 


MOV #4, STMP4 
JSR PC,ERRTN 
RTI 


B 4 
Q3-MAY-78 14:28 PAGE 35 
17 DUMMY END OF PROGRAM 


; INDICATOR FOR DEV 4 
:GO TO ERR ROUTINE 


PRR AAA AREA THAR A ATER AEE RARE AAA ARERR AEARERERKAKERAEAEREAES 
FERRARA AERA E EAE R TEER ERA EATER AAAERAERERAAAAARERAREARAEEAREEE 


PWRFAL: 
R1,-(SP) 
RO,-(SP) 
#BE1CR2,R0 
R1 


#B1T04,a(RO) 
#14,R0 


eo 


R1 
R1,DEVCNT 
5$ 


(SP)+,RO 
(SP)+,R1 
SPWRDN 


SAVE CONTENTS OF R1 

SAVE CONTENTS OF RO 

;RO POINTS TO DEV 1 CR2 ADDR 
sCLEAR R1 


;CLR BIT 4 OF CURRENT CR2 
;ADD 14 TO POINT TO NEXT CR2 
;COUNT THE NUMBER OF DEVS 
;REACHED MAX # ON BUS? 

;1F NOT, CLR NEXT CR2 

sELSE RESTORE RO 

sAND R1 

; THEN DO REGULAR PWR DOWN RIN 


SRR AAA AREA RAE AAA AAA EAA ERATE EAE AERA EARERAREEAKERAKAKRKKEEEE 
—MASRARARARRAARARARARASALASLASSASSASASSASASESALLES EASE SAS ESE SERRA SSS 


ERRTN: 


SAVE REGISTERS 


+ enadtherc mans s INITIALIZE RO 


1$: 
R5 
#14,R0 
R5,STMP4 
1$ 


CHKERR: 
a(RO) 
1$ 


22 
#7540,a(RO) 
LEEV 
#B1T11,a(RO) 
10$ 

23 
#B1T05,a(RO) 
2$ 

24 
#B1T06,a(RO) 
3$ 

25 
#B1T08,a(RO) 
4$ 

26 
#B81T09,a(RO) 
5$ 


1$: 


CLEAR DEVICE COUNTER 


;ADD 1 TO COUNTER 

SET RO=ADDR OF CR2 OF NEXT DEVICE 
;1F COUNTER NOT EQUAL TO INDICATOR 
;ADD 1 TO COUNTER & CHECK AGAIN 


: CHECK FOR NO NOSACK TIMEOUT 
: IF NOT, SEE IF THERE ARE ANY ERRS 
TYPE ERR MESSG FOR NO NOSACK 


: CHECK FOR OTHER ERRORS 

7; IF NO ERRORS,EXIT 

:CHECK FOR NO SSYN ON INTR 

;1F NOT SET, CHECK FOR NEXT ERR 

; TYPE ERR MSSG FOR NO SSYN ON INTR 


; CHECK FOR WRONG GRANT ERR 
:1F NOT, CHECK BIT 6 
ELSE TYPE ERR MESSG FOR WRONG GRANT 


;CHECK FOR BUS LATE ERR 
:IF NOT, CHECK BIT 8 
; TYPE ERR MSSG FOR BUS LATE 


;CHECK FOR NO SSYN ERR 
;1F NOT, CHECK BIT 9 
; TYPE ERR MSSG FOR NO SSYN 


:;CHECK FOR WRONG ADDR ERR 
:IF NOT, CHECK BIT 10 


SEQ 0040 





UNIBUS EXERCIS 
CZKUAD.P11 


010532 


010560 


010562 
010562 
010566 
010574 
010576 


010600 
010600 
010604 
010606 


010712 


ER 
26-APR-78 


104027 


032770 
001401 
104030 


162700 
005070 
104410 
000207 


011637 
162737 
104035 
000002 


032703 
001402 
000261 
000401 


000241 
006003 
032704 
001402 
000261 
000401 
000241 


006004 
000207 


010037 


000402 


004737 
000207 


C 4 
MACY11 ee 14:28 PAGE 36 


17:02 


002000 


000002 


000000 


001164 
000002 


000001 


000001 


177776 
020342 
177777 
170724 


177777 


000001 


010714 


DUMMY END OF PROGRAM 
27 TYPE ERR MSSG FOR WRONG ADDR 


5$: 
000000 #B1T10,a(RO) ;CHECK FOR NO GRANT ERR 
LEEV :1F NOT, EXIT 
30 ; TYPE ERR MSSG FOR NO GRANT 


#2,R0 POINT TO DEVICE CLEAR REG 
a(RO) CLEAR ALL ERRORS 

sRESTORE REGISTERS 
PC sEXIT 


. 
SRR RAE RAE E EAE EAR EEA E EAE EEE RE REE EATER KKAKKKRKAEE 
FERRER EEE EERE EEE EERKEKKEEE 
SUR RAAA EAE E ERE AEEAE ETE AE EAE EE EAA EEA E AREER AREEKEKAEKRKREKKEE 


(SP) ,$REG2 ;MOVE FOR ERR TYPE OUT 
001164 ;SUB 2 FOR ACTUAL ADDR 
TYPE ERR MSSG 


PERERA REAR ERATE AAA EERE AAA AEA ETA AAA AREAKKKEKEREEREKEEE 
FERRARA EEA EAE EEE EAE AAA AEE AAA AAR EEA REARS 
ROTATE: 

BIT #B1T00,R3 :18 LSB A 1 ORO? 

BEQ 5$ ;1F 0, GO TO 5$ 

SEC sELSE SET C BIT OF COND CODES 

BR 10$ ;AND GO ROTATE 


CLEAR C BIT OF COND CODES 


R3 ;ROTATE R3 
#B1T00,R4 :1S LSB A 1 OR 0 ? 
15$ :IF 0, GO TO 15$ 
sELSE SET C BIT OF COND CODES 
208 AND GO ROTATE 


;CLEAR C BIT OF COND CODES 


ROR R4 ROTATE R4 

RTS PC 
PRRA AAR AARAR ERE E RETA AAT TTT TTA TATE TTT E TAA E TREE 
Cee eee P eS Scr rece rece eer rrr rrr crc r rrr ii ii iii iiiiiiiiiiiiis. 


NOG: 


2$: 
RO,PSW ;SET UP PROCESSOR STATUS 
170734 #ATEND,@BE1BA ;SET UP ADDR REG 
170724 #-1,aBE1CC ;SET UP CYCLE COUNT FOR 1 CYCLE 
R1,@BE1CR1 700 FUN 1 ON BR LEVELS IN R1 
;WAIT FOR DEVICE TO ATTEMPT TO DO XFER 
170710 #-1,aBE1CC 7SEE IF DEVICE OPERATED 
4$ :I1F IT DID,GO TYPE ERR MSSG 
;SHIFT BYTE RIGHT TO LOWER BRRO 
iif orrg ts NOT EQUAL TO 1 


EXIT 


sEXIT SUB RIN 


SEQ 0041 





UNIBUS EXERCISER 
CZKUAD.P11 


~ 
—s 
~m 


ke ak ts ad es a = ss 
NOMI N RO POPUP et Ss 
ANFWNH OC OCONAULE Ww 


NN NNNNNASAS SS 


1727 


010752 


010754 


011006 
011010 
011014 
011016 
011024 
011026 


011030 
011030 
011034 
011034 
011036 
011040 
011042 
011044 


011046 
011046 


MACY11 nepéeees’ 


26-APR-78 17:02 


017737 
017737 
017737 
017737 
010037 
104002 
000207 


012737 
012701 
105441 
105421 
105421 
105770 
100402 
105441 
000770 


005741 
022711 
001404 
012737 
104031 
000207 


012701 


010122 
005201 
020105 
101774 
000207 


012737 


000207 


012700 


012777 
010077 
012777 


179660 
170654 
170650 
170644 
001170 


031463 
001163 


000000 


146463 
146463 


000001 


000001 
000001 
000106 


040000 


177777 
170472 
002041 


001160 
001162 
001164 
001166 


001162 


001164 


001170 
001170 
001170 


170474 
170466 


oo 78 
DUMMY 


PERRAEEREREEE 


ERRS: 


peekeeketeene 
pPeeeekkeekere 


BKGD: 


1$: NEGB 


2$: 


BKEX: RTS 


dD 4 
14:28 PAGE 37 
END OF PROGRAM 


LRA RBRRASASASALESSSASASLALASASASSSS SSE SE SESE SSSR SEES SY 


@BE1DB, $REGO ;MOVES ARE FOR TYPEOUTS 

@BE1CC,$REG1 

@BE1BA,$REG2 

@BE1CR1,$REG3 

“pepeoyt 

PC ;EXIT ERROR RIN 
PRRAARAAREREEREA RAE REATEREEETE RRR EERE KERR EERE EE 
eee ei eit iti t iii iii iii iii iii i iii iii isis iti ti itis) 


#031 53,$REG1 ;START OF BACKGROUND ROUTINE 


#$REG1+1,R1 ;USE R1 TO POINT TO TEST PATTERN 

-(R1) ;DECREMENT LOC AND NEGATE BYTE=(031715) 
(R1)+ NEGATE BYTE THEN INCREMENT LOC=(031463) 
(R1)+ NEGATE BYTE THEN INCREMENT LOC=(146463) 
a(RO) TEST FOR DONE BIT OF DEVICE IN RO 

2$ :1F DONE, GO CHECK RESULTS 

-(R1) sELSE DECREMENT LOC AND NEGATE BYTE=(031463) 
1$ ; CONTINUE WITH BACKGROUND 


~(R1) :BRING POINTER DOWN TO REG1 

#146463,(R1) > COMPARE EXPECTED PATTERN WITH THAT IN R1 
BKEX IF EQUAL, EXIT THIS RIN 

#146463,$REG2 :MOVE FOR TYPE OUT 

- sELSE TYPE ERR MSSG 


FERRARA AEA EEA A AREA RETA TAA A TAREE AAAEREAREERKEARKEREEEE 
FRR AREER EAA AA AEE AAA AAA AERA AAAKEKEAAAAREKERAARARKREEE 


DOUP: 
5$: 


MOV 


#1,R1 ; INIT R1 TO 1 

R1,(R2)+ sMOVE CONTENTS OF R1 TO AREA IN R2 
R1 ;ADD 1 TO R1 

R1,R5 :1S # OF MOVES = TO # IN R5? 

5$ 7 1F NOT, DO ANOTHER MOVE 

PC ELSE EXIT 


FRR ARTETA AAA AAARE EERE EREEEE 
PRR AAAAAAAAAA AREA AAA AAA AAA EAAEARERAAAARAREKKEKEARKARKEREE 


CNTR: 
V 
1$: ADD 


#1, SREG4 : INITIALIZE COUNTER REG 
#1, S$REG4 :ADD 1 TO IT 
meat ;DELAY AT LEAST 41 US 


4 ad GO BACK AND ADD 1 TO REG4 


peeeeeeeeeeneneerereteeeteereteeeeeeeeeeereeeeeneneeneeeeeeeeeee 
SRA A ARATE TERA A A TERA REAAAAAEAAARAAAAAAAAERAAAKRERAEREEEE 


ADLI: 
1$: 


#40000,R0 ;USE RO TO SET BIT 14 
#-1,aBE1CC SET CYCLE COUNT = 1 XFER 
RO, @BE 1BA SET ADDR AS SPECIFIED IN RO 


#2041,aBE1CR1 :D0 DATI-FUN 1-NPR 


SEQ 0042 


E—E 4 
UNIBUS EXERCISER MACY11 30A(1052) O3-MAY-78 14:28 PAGE 38 
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004737 011046 PC,CNTR ;ALLOW TIME FOR RDY BIT TO SET 
100000 #100000,R0 ;CHECK IF BIT 15 OF RO IS SET 
EXAD sIF SET, GO SET NEXT ADDR LINE 
100000 #100000,R0 sELSE, NOW SET BIT 15 OF RO 
000760 rane 1$ ;GO BACK AND CHECK THAT ADDR 
XAD: 


000207 R PC sEXIT SUB ROUTINE 


PS eee SCPC Prec errr cere t irri iis iiisi iis iii iii iis iiiie! 
OCS eee P TCSP eter rei iret irri irri iii titi iii tii iit iii ii iiite! 
TSTOVR: 
012737 000140 177776 #PR3,PSW 3PS=3 
$SREG2 ;CLEAR REG FOR INTR ON DONE COUNTER 
#ATEND,RO ;SET UP RO AS POINTER 
: #125252,(RO)+ | ;MOVE DATA PATTERN TO AVAILABLE MEMORY 
022342 #ATEND+2000,RO ;CHECK FOR A 2000 MOVES 
1$ ;1F NOT, GO BACK AND MOVE AGAIN 
000207 RTS PC sEXIT 
eee See Se Lettie titre iii rit trait i tii iciiiitiiiii iti titi itis) 
RRA RAAT AAA AAA AA RAT AAAA ETAT ARETE EAA e eee eee eee eee eee 


005015 005015 047125 : eASCIZ = <15><12><15><12> UNIBUS SYSTEMS EXERCISER DIAGNOSTIC - CZKUA-D BY:M.S 
015 <15><12> DEV 4 MUST HAVE TIME DELAY SET @ 100 US OR LATENCY ERR MAY OCCU 
050103 : . CPU TRAPPED THRU LOCATION 4 -TIMEOUT 
ADDR SERRPC #ERR/TST# 
CPU ISSUED A BUS GRANT WITH PSW = 7 
DEV 1 SHOULD NOT HAVE BECOME BUS MASTER 
BE1DB BEICC BEIBA BEICRI PSW SERRPC #ERR/TST# 


CPU DID NOT ISSUE BUS NPG 
BE1CR1 BEICC FM-PS TO-PS S$ERRPC #ERR/TST# 
CPU DID NOT ISSUE BUS GRANT 7 
CPU DID NOT ISSUE BUS GRANT 6 
CPU DID NOT ISSUE BUS GRANT 5 
CPU DID NOT ISSUE BUS GRANT 4 
ONE OR MORE DEVICES DID NOT INTERRUPT 
THIS IS THE ORDER IN WHICH THEY INTERRUPTED <15><12> 
1ST 2ND 3RD 4TH S$ERRPC #ERR/TST# 
BUS ADDRESS LINES <A17:A14> DID NOT FUNCTION PROPERLY 
BE1CRi BEICR2 BEIBA SERRPC #ERR/TST# 
CPU NO SACK TIMEOUT LOGIC FAILED(TO NEGATE BUS GRANT) 
BE1CR1 BEICR2 SERRPC #ERR/TSTA 
CPU DID NOT PROPERLY EXECUTE AN ACLO/DCLO SEQUENCE 
SERRPC #ERR/TST# 
CPU DID NOT TRAP FROM BUS PARITY ERROR PA/PB = 0/1 
DEV 1 DID DATIP WITH ROL ON DATOB TO MEMORY <15><12> 
THE TRANSFER TO THE FOLLOWING LOCATION WAS INCORRECT 
MEMORY ACTUAL CORRECT <15><12> 
DATA DATA S$ERRPC #ERR/TST# SICNT # 
3°S DATO TO MEMORY DID NOT EQUAL PATTERN IN R3 
4'S DATO TO MEMORY DID NOT EQUAL PATTERN IN R4 
DEVICE 1 DOING FUN 1-NPR-DATIP; INCORRECT PATTERN IN MEMORY 
DEVICE 2 DOING FUN 2-NPR-DATOB; INCORRECT PATTERN IN MEMCRY 
BIT 7 OF CR2 SET-CPU DID NOT TIME OUT WITH SACK INHIBITED 
# PC SERRPC #ERR/TST# 
11 OF CR2 SET-NO SSYN ON INTR SIGNAL 
i OF CR2 SET-RECEIVED WRONG GRANT 


014166 044502 020124 020066 OF CR2 SET-BUS LATE 





F 4 
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014220 044502 020124 020070 : : BIT 8 OF CR2 SET=-NO SSYN OCCURRED 
044502 : . BIT 9 OF CR2 SET-WRONG ADDRESS ON BUS 
1 : BIT 10 OF CR2 SET-DEVICE RECEIVED OTHER THAN ONE GRANT 
BKGND ROUTINE INSTRUCTIONS OF NEGB'S WERE NOT DONE <15><12> 
CORRECTLY TO $REG1 DURING MULTITRANSFERS II 
ACTUAL CORR'T <15><12> 
DATA DATA SERRPC #ERR/TST# SICNT # 
DEV 3 DID DATI BUT HAS INCORRECT VALUES IN DATA REG 
DEV 4 DID NOT INTR THE CORRECT # OF TIMES 
LAST DATIP TO DEVICE 1 DB WAS INCORRECT= EITHER DEVICE DID <15><12> 
¥ NOT WORK OR BUFFER AREA WAS NOT SET UP PROPERLY 
015165 041412 052520 : ‘ <15><12> CPU TRAPPED THRU LOC 0 TO CATCH IMPROPERLY LOADED VECTORS 


015262 001116 001102 : ° SREG2,SERRPC,STSTNM,O 
001162 : ° SREGO, SREG1 , SREG2, SREG3,SREG4,SERRPC,STSTNM,0 
001162 : ° SREGO, SREG1, SREG2,SREG3,SERRPC,STSTNM,0 
001164 , SREG1, SREG2,SREG3,$REG4,SERRPC,STSTNM,0 
001164 r » SREG1, SREG2,SREGS,SERRPC,STSTNM,0 
001162 t « SREGO, SREG1,SERRPC,STSTNM,O 
001102 : SERRPC ,STSTNA,O 
001162 t «s SREGO,SREG1,SREGS,SERRPC ,STSTNM,SICNT,0O 
001172 res STMP4 ,SREGS,SERRPC,STSTNM,O 
015432 001162 001164 001116 _ SREG1,SREG2,SERRPC,STSTNM,SICNT,O 
ITT T iit titi lista tit iit iti tier titii titi t itt e tritici iii i titi ts 
etter iti r iret iri rir iii rir itr i rir it iti titi iti it iti titi iit itis 


—MARRALARARARBARARALAARAAALALARASSASASASEASASESES ASSES ESE ASRS ARSE SS OD 


—MARAAARRARBARAARARARASLELAALSASESESESASSASESE SES EEE E ERE RSS E ER SESE SS 


-SBTTL END OF PASS ROUTINE 


;* INCREMENT THE PASS NUMBER (S$PASS) 

s*TYPE "‘END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY"' 
;*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 

;*IF THERES A MONITOR GO TO IT 

*IF THERE ISN'T JUMP TO TST1 


015446 SEOP: 


000004 
001102 STSTNM :;ZERO THE TEST NUMBER 
001210 STIMES ::;ZERO THE NUMBER OF ITERATIONS 
001100 SPASS >; INCREMENT THE PASS NUMBER 
100000 001100 — big ALLOW A NEG. NUMBER 
+ . 


DE oP? 
SEOPCT: . 1 
BG SDOAGN 77 YES 

prete aare re > RESTORE COUNTER 


M 
SENDCT: . 
§ 


015514 2 t4 3: TYPE ASCIZ STRING 
B 64$ 3:GET OVER THE ASCIZ 
33.ASCIZ <12><15>/END PASS #/ 


000407 


013746 001100 MOV SPASS,-(SP) 7;SAVE SPASS FOR TYPEOUT 

7; TYPE PASS NUMBER 
104404 TYPDS ::GO TYPE--DECIMAL ASCII WITH SIGN 
104400 015546 TYPE 22th i: TYPE ASCIZ STRING 





G 4 
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015544 000421 BR 65$ ;GET OVER THE ASCIZ 
015610 33 ASCIZ / TOTAL ERRORS SINCE LAST REPORT / 


015610 013746 SERTTL,-(SP) ;;SAVE SERTTL FOR TYPEOUT 
;;TOTAL NUMBER OF ERRORS 
015614 104404 3:GO TYPE--DECIMAL ASCII WITH SIGN 
015616 104400 , SNULL :; TYPE NULL CHAR 
015622 005037 SERTTL ;;CLEAR ERROR TOTAL 
015626 $GET42: 


015626 013700 a#42,R0 3:GET MONITOR ADDRESS 
015632 $DOAGN ;;BRANCH IF NO MONITOR 
015634 3s; CLEAR THE WORLD 
015636 SENDAD: R PC, (RO) ;:G0 TO MONITOR 

015640 ;; SAVE ROOM 

015642 e3 

015644 000240 

015646 $DOAGN: 

015646 000137 003506 avTsTi 7 RETURN 

015652 pos 44 377 000 $ENULL: . -1,-1,0 3 NULL CHARACTER STRING 


. 
FRR EEE EERE EERE EAE AEE EEE REE RAEAERERAEEEAEKKKEREEEEE EE 


-SBTTL SCOPE HANDLER ROUTINE 


:*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
:*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

3*SW14=1 LOOP ON TEST 

3*SW11=1 INHIBIT ITERATIONS 

3 *SW09=1 LOOP ON ERROR 

3*SW08=1 LOOP ON TEST IN SWR<5:0> 

7 *CALL 

3* SCOPE 3; SCOPE=I0T 


015656 SSCOPE: 
015656 032777 040000 163252 1$: BIT #BIT14,aSWR :s LOOP ON PRESENT TEST? 
015664 001114 BNE SOVER sYES IF SW14=1 
;WHAHHSTART OF CODE FOR THE XOR TESTER####M 
015666 000416 $XTSTR: BR 6$ 3: 1F RUNNING ON THE ‘'XOR'' TESTER CHANGE 
;;THIS INSTRUCTION TO A ‘‘NOP"’ (NOP=240) 
015670 013746 000004 @#ERRVEC,-(SP) ;;SAVE THE CONTENTS OF THE ERROR VECTOR 
015714 000004 #5$,a#ERRVEC i3SET FOR TIMEOUT 
177060 a#177060 : TIME OUT ON XOR? 
000004 (SP)+,@#ERRVEC ;;RESTORE THE ERROR VECTOR 
SSVLAD ;:GO TO THE NEXT TEST 
5$: (SP)+,(SP)+ :;CLEAR THE STACK AFTER A TIME OUT 
000004 (SP) +, @#ERRVEC + sRESTORE THE ERROR VECTOR 
000426 BR 7$ LOOP ON THE PRESENT TEST 
CODE FOR THE XOR TESTERS##M# 
032777 000400 163204 BIT #B1T08,aSWR +: LOOP ON SPEC. TEST? 
001407 23 IF NO 
017746 163176 @SWR,-(SP) 3SET DESIRED TEST NUM. FROM SwWR 
042716 000300 #SSWRAK , (SP) STRIP AWAY UNDESIRED BITS 
015744 122637 001102 (SP)+,STSTNM ::0N THE RIGHT TEST? 





UNIBUS 


CZKUAD.P 


EXERCISE 
11 


015750 


016132 


016134 
016134 


016202 


56-APR- -78 
001462 


000040 


105237 


117737 


MACY11 30A(1052) 
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001103 
001115 
001000 
001110 


001103 
001210 


004000 
001100 


001104 
001210 


000001 
016132 


001102 
001106 


001102 


001102 
002000 


001214 


162710 


001103 
163140 
001106 


163106 


001104 


001104 
001210 


001115 
163014 


162770 
162760 


01116 
01114 


03-MAY-78 


H 4 
14:28 PAGE 41 


SCOPE HANDLER ROUTINE 


2$: 


4$: 


3$: 


1$: 
SSVLAD: 


SOVER: 


SMXCNT: 40 


SOVER 
_— 


$ 
SERMAX, SERFLG 
#81T09,aSwR 
4$ 
SLPERR, SLPADR 
SOVER 


SERFLG 
STIMES 


1$ 
#B1T11,aSwR 
1$ 


SPASS 

1$ 

SICNT 
STIMES,SICNT 
SOVER 
#1,S1CNT 
SMXCNT,STIMES 
STSTNM 

(SP) ,SLPADR 
(SP) ,SLPERR 
SESCAPE 

#1, SERMAX 


STSTNM,@DISPLAY 


SLPADR, (SP) 


IF YES 
: HAS | ERROR OCCURRED? 
; IF NO 
i :MAX. ERRORS FOR THIS TEST OCCURRED? 
N 


SLOOP ON ERROR? 
BR IF NO 
::SET LOOP ADDRESS TO LAST SCOPE 


3;ZERO THE ERROR FLAG 


;:CLEAR THE NUMBER OF ITERATIONS TO MAKE 


s ESCAPE TO THE NEXT TEST 

3: INHIBIT ITERATIONS? 

37BR IF YES 

ic1F FIRST PASS OF PROGRAM 

; INHIBIT ITERATIONS 

+: INCREMENT ITERATION COUNT 

7;CHECK THE NUMBER OF ITERATIONS MADE 
3;:BR IF MORE ITERATION REQUIRED 
;sREINITIALIZE THE ITERATION COUNTER 
3;SET NUMBER OF ITERATIONS TO DO 
;:COUNT TEST NUMBERS 

3:SAVE SCOPE LOOP ADDRESS 

7:SAVE ERROR LOOP ADDRESS 

3:CLEAR THE ESCAPE FROM ERROR ADDRESS 
;:ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
;:DISPLAY TEST NUMBER 

3: FUDGE RETURN ADDRESS 

scFIXES PS 

37MAX. NUMBER OF ITERATIONS 


FURR 


-SBTTL ERROR HANDLER ROUTINE 


:*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
:*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 

;*AND GO TO SERRTYP ON ERROR 
ie SWITCH OPTIONS apie BY THIS ROUTINE ARE: 


7*SW15=1 
7*SW13=1 
3*SW10=1 
7*SwO9=1 
7*CALL 

th ERROR 


SERROR: 
7$: 


HALT ON ERR 


INHIBIT ERROR TYPEOUTS 


BELL ON ERROR 
LOOP ON ERROR 


N 7 ERROR=EMT AND N=ERROR ITEM NUMBER 
SERFLG :;SET THE ERROR FLAG 
7$ ON'T LET THE FLAG GO TO ZERO 


330 
STSTNM,@DISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG 


#BIT10,aSWR 
1$ 


. $BELL 

SERTTL 

(SP), i 
#2,$ 

aSERRPC, PEI TENB 


;;BELL ON ERROR? 
::NO - SKIP 
2 RING BELL 
;COUNT THE NUMBER OF ERRORS 
::GET ADDRESS OF ERROR INSTRUCTION 


3;STRIP AND SAVE THE ERROR ITEM CODE 


I 4 
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016210 032777 020000 162720 BIT #B1T13,aSwR z;SKIP TYPEOUT IF SET 
001004 BNE 208 7; SKIP TYPEOUTS 
004737 016302 JSR PC,SERRTYP 3:;G0 TO USER ERROR ROUTINE 
104400 001221 TYPE ,SCRLF 


005777 162702 TST aSwWR ;;HALT ON ERROR 
BPL 6$ 3;SKIP IF CONTINUE 
;;HALT ON ERROR! 
015636 000042 : #SENDAD ,a#42 ;:ACT-11 AUTO-ACCEPT? 
3$ : ;BRANCH IF NO 


YES 
001000 162656 : ieee = ae ::LOOP ee SWITCH SET? 
001110 SLPERR, (SP) Ae RETURN FOR LOOPING 
001212 2 SESCAPE 3: CHECK FOR AN ESCAPE ADDRESS 
5$ 3:BR IF NONE 
013716 001212 SESCAPE,(SP) 3: FUDGE RETURN ADDRESS FOR ESCAPE 


016300 000002 j : ;RETURN 


RRR AA RAAT AAA AAA AAAAAATEE EEE E TAREE EAE RE RRR RE REE EERE 
-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


s*THIS ROUTINE USES THE “ITEM CONTROL BYTE’’ (SITEMB) TO DETERMINE WHICH 
;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE” (SERRTB), 
:*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


016302 SERRTYP: 
104400 001221 TYPE - SCRLF 33‘"CARRIAGE RETURN’ & “'LINE FEED" 
RO,-(SP) 3;SAVE RO 
RO ::PICKUP THE ITEM INDEX 
001114 a#$1TEMB,RO 


016316 001004 1$ 3: 1F ITEM NUMBER IS ZERO, JUST 
7; TYPE THE PC OF THE ERROR 
016320 013746 001116 SERRPC,-(SP) 3; SAVE SERRPC FOR TYPEOUT 
ERROR ADDRESS 
016324 104401 3:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
8 3:GET OUT 
7;ADJUST THE INDEX SO THAT IT WILL 
33 WORK FOR THE ERROR TABLE 


RO 
001224 #SERRTB,RO 77FORM TABLE POINTER 
016354 (RO)+,2$ : PICKUP “ERROR MESSAGE’ POINTER 
3$ 3;SKIP TYPEOUT IF NO POINTER 
7: TYPE THE “‘ERROR MESSAGE" 
: . 0 37:""ERROR MESSAGE’' POINTER GOES HERE 
001221 , SCRLF 37'"CARRIAGE RETURN’ & “‘LINE FEED" 
016372 : (RO)+,4$ 7;PICKUP “DATA HEADER’ POINTER 
5$ 7:SKIP TYPEOUT IF 0 
7; TYPE THE “DATA HEADER" 
: . 0 :7'"DATA HEADER’ POINTER GOES HERE 
001221 SCRLF 77°"CARRIAGE RETURN’ & "LINE FEED" 
: (RO) ,RO 77PICKUP “DATA TABLE’’ POINTER 
7$ 3:;G0 TYPE THE DATA 
016404 012600 : (SP)+,RO 7 RESTORE RO 
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016406 104400 001221 » SCRLF 33""CARRIAGE RETURN’ @ "'LINE FEED" 
000207 - PC 7 RETURN 
013046 a(RO)+,-(SP) ;;SAVE a(RO)+ FOR TYPEOUT 
104401 3;GO TYPE--OCTAL ASCII(ALL DIGITS) 
005710 (RO) ie Hg | ANOTHER NUMBER? 
001770 6$ sBR IF 
104400 016432 -8$ 3 TYPE 1w0(2) SPACES 
000771 7$ ;LOOP 
016432 020040 060 : ‘ / $i Two(2) SPACES 
016436 


. 
FURR AREER E RE E ERE EEE EE REEE REE E EERE EERERE EERE 


-SBTTL TTY INPUT ROUTINE 


:*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
3 *CALL: 

:* RDCHR 3; INPUT A SINGLE CHARACTER FROM THE TTY 
hs RETURN HERE ;: CHARACTER IS ON THE STACK 


016436 011646 SRDCHR: (SP) ,-(SP) ;3PUSH DOWN THE PC 
016666 000004 000002 M 4(SP),2(SP) 3:SAVE THE PS 
105777 162470 1$: asTKs 7: WAIT FOR 
100375 1$ 37A CHARACTER 
117766 162464 000004 a$TKB,4(SP) 33READ THE TTY 
042766 177600 000004 # C<177>,4(SP) ;;GET RID OF JUNK IF ANY 
016470 000002 3:GO BACK TF USER 
CPSC SCS e Teri rrr tir itt iis iii writ i titi tii titi iii iis) 


s*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
it: 


RDLIN 3: INPUT A STRING FROM THE TTY 
RETURN HERE Setey te: OF FIRST CHARACTER WILL BE ON THE STACK 
; TERMINATOR WILL BE A BYTE OF ALL O'S 


016472 010346 : R3,-(SP) 7 SAVE R3 
016600 1$: #STTYIN,R3 3:;GET ADDRESS 
016616 : #STTYINC16,R3 ;;BUFFER FULL? 
4$ 7:BR IF YES 
3:GO READ ONE CHARACTER FROM THE TTY 
(SP)+,(R3) 3:GET CHARACTER 
000177 #177, (R3) 3:18 IT A RUBOUT 
3$ 7 7SKIP IF NOT 
001220 : - SQUES :7; TYPE A ‘?° 
1$ 3; CLEAR THE BUFFER AND LOOP 
016576 : (R3),9% 7;ECHO THE CHARACTER 
01657€é 9% 
000015 #15, (R3)+ 7; CHECK FOR RETURN 
2$ ;;LOOP IF NOT RETURN 
177777 -1(R3) ;; CLEAR RETURN (THE 15) 
001222 ,SLF 77; TYPE A LINE FEED 
(SP)+,R3 ; RESTORE R3 
(SP) ,=(SP) ;;ADJUST THE STACK AND PUT ADDRESS OF THE 
000004 000002 4(SP),2(SP) 33 FIRST ASCII CHARACTER ON IT 
016600 000004 #STTYIN,4(SP) 
016574 000002 > RETURN 
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016576 
016577 
016600 


016616 


017012 
017020 
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000 
000 
000016 


010046 
010146 


005737 


000004 
000006 


000034 
016654 


000002 
016670 


000034 
003776 


017046 
177572 
100000 
172340 
000010 
077406 
000200 
177600 


000006 


143776 


000034 
000006 


000004 
016702 


177740 


000004 
000006 
172516 


000004 


03-MAY-78 
TTY INPUT ROUTINE 


9$: 
STTYIN: 


-BYTE 
-BYTE 
-BLKB 


K 4 
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0 sz STORAGE FOR ASCII CHAR. TO TYPE 
0 >; TERMINATOR 
16 7;RESERVE 16 BYTES FOR TTY INPUT 


SRR REE EERE ERE EERE EERE 


~SBTTL ROUTINE TO SIZE MEMORY 


> *CALL: 


** 


SSLSTAD WILL CONTAIN: 
;% WITH KT11 OPTION 


-* 
. 


:sB1T15 


SSIZE: 


1$: 


SSIZE1: 


$KT11: 


1$: 


2s: 


JSR 


PC,$SIZE 


RETURN 


=~ LAST VIRTUAL ADDRESS OF THE LAST BANK 


WITHOUT KT11 OPTION ~~ LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY 
;*$LSTBK WILL CONTAIN THE LAST BANK AS A SAF 

;*$KT11 IS THE MEMORY MANAGEMENT KEY 

pO ter = 0 DON'T USE MEMORY aS 

MUST BE SETUP BEFORE THE CAL 

= 0 DON'T HAVE MEMORY MANAGEMENT OPTION 

DETERMINED BY ROUTINE 


RO,-(SP) 3;SAVE RO ON THE STACK 
R1,-(SP) 7:SAVE R1 ON THE STACK 
R2,-(SP) 7;SAVE R2 ON THE STACK 
R3,-(SP) 3;SAVE R3 ON THE STACK 


a#ERRVEC, -(SP) ;;SAVE PRESENT ERROR VECTOR PS & PC 
a#ERRVEC#2, -(SP) 


SP,RO :;SAVE THE STACK POINTER 
a#34,-(SP) 3 SETUP THE TRAP VECTOR 
#180034 3: TO GET THE PS 


2(SP) ,QWERRVEC+2 ;;SET ERRVEC PS 
#$SIZE1, (SP) 3; TO PRESENT PS 


(SP)+,a#34 7 ;RESTORE TRAP VECTOR 

#3776,R1 ;;SETUP ADDRESS 

(PC)+ 3;USE MEMORY MANAGEMENT? 

200 :3SET - USE MEMORY MANAGEMENT 


SCORE :BR IF NO 
#SKTNEX,@#ERRVEC ;;SET FOR TIMEOUT 
a#sro ::KT11 ARE YOU THERE? 
— $KT11 3; YES=-SET KT11 KEY 
~(SP) i: INITIALIZE FOR o_o 


#KIPARO,R2 aes tt OF FIRST 

# 08,R3 ;LOAD EIGHT ‘'PAR.*S'* AND EIGHT ‘'PDR.'S"' 
#77406,-40(R2) ;;PDR = 4K, UP. READ/WRITE 

(SP), (R2)+ ;;LOAD ‘'PAR 

#200, (SP) ; ;UPDATE FOR NEXT "'PAR’* 


R3,1$ ;;LOOP UNTIL ALL EIGHT ARE LOADED 
#177600,-(R2) ;;SETUP KIPAR7 FOR 1/0 

~(R2) ;:SETUP KIPAR6 FOR TESTING 
#6, ans 7:SET FOR TIMEOUT 

#2, a#6 3:1F SR3 DOESNT Ts 
#20, arses {oy 22 BIT MODE 

SRO N ON ere MANAGEMENT 

PSKTOUT, @#ERRVEC iTSET FOR TIME OUT 
#143776 3; TRAP ON NON~EX-MEM 


SEQ 0049 


UNIBUS 


CZKUAD. 


2109 


MMIM MPF, POM 
par er er er er ee ye Ps 
ed ad ed ed ced ed ce ed ce eed 
OONAOULWN—O 


EXERCIS 
P11 


017024 


017152 


ER 


MACY11 saihahernal™ 
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062712 


000000 


010046 


016646 


000040 
172356 
177572 


100000 
017104 


004060 
000040 


177776 


004000 
000040 


000006 
000004 
017150 
017152 


000022 


016702 
000004 


otun's 78 
INE TO SI 


$SKTOUT: MOV 


SKTNEX: BIC 


SCORE: MOV 
1$: ADD 


$CROUT: SUB 
SSIZEX: SUB 


SLSTAD: .WORD 
SLSTBK: .WORD 


FURR AAA AAA ERA ETRE EAA ERATE EEE RAE AAA RARER EE 


L 4 
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ZE MEMORY 


#40, (R2) 
-Spethonge eae 


$ 
(R2) ,R2 
a#SRO 


SSIZEX 
#100000 ,$kKT11 


3:MAKE A 1K STEP 

3;LAST ONE? 

szNO--TRY IT 

3;GET LAST BANK+1 

3: TURN OFF MEMORY MANAGEMENT 


33KT11 NON-EXISTENT 


#SCROUT ,Q#ERRVEC ;;SET FOR TIMEOUT 


R2 
#4000,R1 
#40,R2 
(R1) 
#177776,R1 
1$ 


: SET UP BANK 
« UINCREMENT BY 1K 
331K STEP 
3: TRAP ON TIME OUT 
3;LAST ONE 
3zNO--TRY AGAIN 


+ sDROP BACK 
RESTORE THE STACK 


(SP)+, @#ERRVEC+2 :;RESTORE ERROR VECTOR 


(SP)+, a#ERRVEC 
R1,$LSTAD 
R2,$LSTBK 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 

C 


0 


3;LAST ADDRESS 
;;LAST BANK 

3 RESTORE R3 

7 RESTORE R2 

7 RESTORE R1 
7;RESTORE RO 


3; CONTAINS THE LAST ADDRESS 
3; CONTAINS THE LAST BANK 


-SBTTL SAVE AND RESTORE RO-R5 ROUTINES 


3*SAVE RO-R5 
:*CALL: 


-* 


it 
3 *TOP---(+16) 


pt +2=--(+18) 
pe th---R5 
3* +6---R4 
yt +8---R3 
3*+10---R2 
3*+12---R1 
3 %+14---R0 
SSAVREG: 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 


RO,-(SP) 


22(SP),-(SP) 
22(SP),=(SP) 
22(SP),-(SP) 


: SAVREG 
:*UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


;;PUSH RO ON STACK 
;;PUSH R1 ON STACK 
:;PUSH R2 ON STACK 
3;PUSH R3 ON STACK 
;;PUSH R4 ON STACK 
;;PUSH R5 ON STACK 
:;SAVE PS OF MAIN FiOW 
;;SAVE PC OF MAIN FLOW 
3;SAVE PS OF CALL 


SEQ 0050 


4 
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2157 017204 016646 000022 . MOV 22(SP) ,=(SP) 
017210 000002 RTI 


SEQ 0051 
:;SAVE PC OF CALL 


017212 


017246 


017250 


017330 


012666 


000002 


105737 


000757 


000022 
000022 
000022 
000022 


001155 


000002 


000002 
000011 
000200 


;*RESTORE RO-R5 
CALL: 


had R 
SRESREG: 
M 


(SP)+,22(SP) 
(SP)+,22(SP) 
(SP)+,22(SP) 
(SP)+,22(SP) 
(SP)+,R5 
(SP)+,R4 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 


7sRESTORE PC OF CALL 
;sRESTORE PS OF CALL 
:;RESTORE PC OF MAIN FLOW 
;;RESTORE PS OF MAIN FLOW 
3;POP STACK INTO R5 

::POP STACK INTO R4 

3:POP STACK INTO R3 

:;POP STACK INTO R2 

::POP STACK INTO R1 

:;POP STACK INTO RO 


SERRA ARETE EERE REE RAE AEA ERE KERR 


-SBTTL TYPE ROUTINE 


:*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
:*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 


3 *NOTE1: 
;*NOTE2: 
ssNOTES: 


RCA LL 


pane USING, A TRAP INSTRUCTION 
R 


PE 
TYPE 


MESADR 


SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


»MESAD 


STPFLG 
1$ 


3$ 
RO,-(SP) 
a2(SP),RO 
(RO)+,-(SP) 
4$ 

(SP)+ 
(SP)+,RO 
#2, (SP) 
#THT, (SP) 
#TCRLF, (SP) 
5$ 


(SP)+ 


2$ 


::MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


3:18 THERE A TERMINAL? 
7:BR IF YES 
1 pte IF NO TERMINAL 
7; SAVE RO 
3:GET ADDRESS OF ASCIZ STRING 
3:PUSH CHARACTER TO BE TYPED ONTO STACK 
7:BR IF IT ISN'T THE TERMINATOR 
321 TERMINATOR POP IT OFF THE STACK 
7 RESTORE RO 
7; ADJUST RETURN PC 
URN 


7 RET 
;:BRANCH IF <HT> 
;;BRANCH IF NOT <CRLF> 


::POP <CR><LF> EQUIV 
3; TYPE A CR AND LF 


3:GET NEXT CHARACTER 
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017332 
017336 
017342 
017344 


017350 


017366 


017370 


017462 


ER 
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004737 
123726 
001352 
013746 


105366 
002770 
004737 
105337 
000770 


112716 


000207 


000011 
000200 
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017414 
001154 


001152 
000001 


017414 
017460 


000040 
017414 
000007 


161526 


000002 
000015 


017460 
000012 


017460 


161520 
000002 


000002 


03-MAY-78 
TYPE ROUTINE 


5$: 
6$: 


7$: 


sHORIZONTAL TAB 


8$: 
9$: 


BR 
STYPEC: 
B 


1$: 


INCB 
SCHARCNT: .WORD 


STYPEX: RTS 


THT=11 
TCRLF=200 


EQUATES 


N 4 
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PC ,STYPEC 
SFILLC,(SP)+ 


2$ 

SNULL ,-(SP) 
1(SP) 

6$ 


PC, STYPEC 
SCHARCNT 
7$ 


PROCESSOR 


#40, (SP) 

PC ,STYPEC 
#7, SCHARCNT 
9$ 


(SP) + 
2$ 


asTPs 
STYPEC 
2(SP) ,asTPB 
#15,2(SP) 


1$ 
SCHARCNT 
STYPEX 
#12,2(SP) 
STYPEX 
(PC)+ 

0 

Pp 


SEQ 0052 


3:GO TYPE THIS CHARACTER 

7:18 IT TIME FOR FILLER CHARS.? 

7:1F NO GO GET NEXT CHAR. 

7:GET # OF FILLER CHARS. NEEDED 

7:AND THE NULL CHAR. 

3:DOES A NULL NEED To BE TYPED? 

;;BR IF NO--GO POP THE NULL OFF OF STACK 
3:G0 TYPE A NULL 

3:00 ae COUNT AS A COUNT 


7:REPLACE TAB WITH SPACE 

3: TYPE A SPACE 

::BRANCH IF NOT AT 

3: TAB STOP 

3:POP SPACE OFF STACK 

3:GET NEXT CHARACTER 

;:WAIT UNTIL PRINTER IS READY 


;:LOAD CHAR TO BE TYPED INTO DATA REG. 
;:BRANCH IF 
3:NOT <CR> 


sr EXIT 

: ;BRANCH IF 
3<LF> 

ZINC space 

3; COUNT 


SERRA AAHAAAAEAA AERA EKER AAAAAAAAA RARER AA TAREE EERE RARE eeEe 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


s*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
*OCTAL (ASCII) NUMBER AND TYPE IT. 
:*STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


2 *CALL: 
;e MOV 


:® TYPOS 
38 .BYTE 
;@ -BYTE 
-« 
so 
3f 


NUM, - (SP) 


; NUMBER TO BE TYPED 
7:CALL FOR TYPEOUT 
7:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
7 :M=1 OR O 
7: 1=TYPE LEADING ZEROS 
7;0=SUPPRESS LEADING ZEROS 


: *STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*STYPOS OR S$TYPOC 


7 *CALL: 
; MOV 


TYPON 


NUP, = (SP) 


; NUMBER TO BE TYPED 


72 CALL FOR TYPEQUT 
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s*STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
>*CALL: 


NUM, = (SP) ;;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 


017464 017646 000000 $TYPOS: a(SP),-(SP) ;;PICKUP THE MODE 
000001 017707 5 1(SP),SOFILL ;;LOAD ZERO FILL SWITCH 
017711 (SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
000002 #2, (SP) ;;ADJUST RETURN ADDRESS 
B STYPON 

000001 017707 $TYPOC: #1,S0FILL 7:SET THE ZERO FILL SWITCH 
000006 017711 M #6, SOMODE+1 ::SET FOR SIX(6) DIGITS 
000005 017706 $TYPON: 73SET — ITERATION COUNT 


7;SAVE R5 
017711 + pee ie on :;GET THE NUMBER OF DIGITS TO TYPE 
R 


000006 #6,R4 ;;SUBTRACT IT FOR MAX. ALLOWED 
017710 R4 , SOMODE :;SAVE IT FOR USE 
017707 SOFILL,R4 7:GET THE ZERO FILL SWITCH 
000012 12(0SP),R5 ;:PICKUP THE INPUT NUMBER 
R ::CLEAR THE OUTPUT WORD 

;;ROTATE MSB INTO ‘'C’’ 

::G0 DO MSB 

3:FORM THIS DIGIT 


: R3 3:GET LSB OF THIS DIGIT 

017710 3; TYPE THIS DIGIT? 

3:BR IF NO 
177770 3;GE? RID OF JUNK 

4$ :; TEST FOR 0 
3;SUPPRESS THIS 0? 
7:BR IF YES 
: 4 ;:DON'T SUPPRESS ANYMORE 0'S 
000060 7:MAKE THIS DIGIT ASCII 
000040 : 7zMAKE ASCII IF NOT ALREADY 
017704 7; SAVE FOR TYPING 
017704 8 3:60 TYPE THIS DIGIT 
017706 : ;;COUNT BY 1 
2$ 7:;BR IF MORE TO DO 

3:BR IF DONE 

3: INSURE LAST DIGIT ISN'T A BLANK 

3:G0 DO THE LAST DIGIT 

7 RESTORE RS 

> RESTORE R4 

7 ;RESTORE R3 
000002 000004 3;SET THE STACK FOR RETURNING 


7 RETURN 
3;STORAGE FOR ASCII DIGIT 
BYTE 3; TERMINATOR FOR TYPE ROUTINE 
SOCNT: .BYTE ;;OCTAL DIGIT COUNTER 
017707 SOFILL: .BYTE 32:ZERO FILL SWITCH 





¢ % 
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232 


017710 000000 SOMODE: .WORD 0 ;;NUMBER OF DIGITS TO TYPE 


6 SERA AREER ATER EERE EERE EAA AERA AEA AAA ERA KARKKKKKKKKEREE 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 

> *SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
:*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
:*8°FORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
:*Rc PLACED WITH SPACES. 

> *CALL: 

:* MOV NUM ,-(SP) ::PUT THE BINARY NUMBER ON THE STACK 
y* DS ::G0 TO THE ROUTINE 


017712 STYPDS: 
010046 RO,-(SP) 3zPUSH RO ON STACK 
3;PUSH R1 ON STACK 
33;PUSH R2 ON STACK 
3;PUSH R3 ON STACK 
3:;PUSH RS ON STACK 
020200 3;SET BLANK SWITCH AND SIGN 
000020 20(SP),R5 3:GET THE INPUT NUMBER 
1$ 7:;BR IF INPUT IS POS. 
R5 3;MAKE THE BINARY NUMBER POS. 
000055 000001 #'=-,10SP) 7:MAKE THE ASCII NUMBER NEG. 
1$: RO 3:ZERO THE CONSTANTS INDEX 
020126 #SDBLK,R3 3:SETUP THE OUTPUT POINTER 
000040 #' ,(R3)+ 7:SET THE FIRST CHARACTER TO A BLANK 
: R2 ;;CLEAR THE BCD NUMBER 
020116 SDTBL(RO),R1 3:GET THE CONSTANT 
R1,R5 4 gee BCD DIGIT 


IF DONE 
;; INCREASE THE BCD DIGIT BY 1 


;;AD0 BACK THE CONSTANT 
3:CHECK IF BCD DIGIT=0 
3;FALL THROUGH IF 0 
STILL Sa LEADING 0'S? 


6$ :3 F NO 
000001 177777 77 YES--SET THE SIGN 
000060 : 0,R2 3;MAKE THE BCD DIGIT ASCII 
000040 : 37MAKE IT A SPACE IF NOT ALREADY A DIGIT 
3:PUT THIS CHARACTER IN THE OUTPUT BUFFER 
3; JUST INCREMENTING 
00001 ;;CHECK THE TABLE INDEX 
2$ 3:60 DO THE NEXT DIGIT 
3:60 TO EXIT 
3;GET THE LSD 
3:60 CHANGE TO ASCII 
77;WAS THE LSD THE FIRST NON-ZERO? 
 } s3 IF nO 
177777 177776 -1(SP),-2(R3) 77 YES--SET THE SIGN FOR TYPING 
9$: (R3) 3;SET THE TERMINATOR 
020066 012605 (SP)+,R5 3;POP STACK INTO R5 
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020070 


020126 


020136 


020156 


020160 


020200 


020202 
020210 
020216 
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012603 


000004 


010046 
016600 
005740 
111000 
006300 
016000 
000200 


017250 


D 5 
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(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 

, SDBLK 
2(SP),4(SP) 
(SP)+, (SP) 


SDTBL: 


10. 
SDBLK: .BLKW 4 


CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


3:POP STACK INTO R3 
:;POP STACK INTO R2 
;:POP STACK INTO R1 
;;POP STACK INTO RO 
;:NOW TYPE THE NUMBER 
ADJUST THE STACK 


; RETURN TO USER 


FRR AEE ERE ERE EERE EERE EEE EEE EEE EKER 


-SBTTL TRAP DECODER 


*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘’TRAP*’’ INSTRUCTION 
:*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 


:*GO TO THAT ROUTINE. 


STRAP: RO,-(SP) 
2(SP),RO 
- (RO) 
(RO) ,RO 
0 


000002 


020160 


R 
STRPAD(RO) ,RO 
RO 


-SBTTL TRAP TABLE 


;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF 


;*BY THE ‘‘TRAP’’ INSTRUCTION. 
ROUTINE 


STRPAD: 
7; CALL=TYPE 
7; CALL=TYPOC 
:;CALL=TYPOS 
;;CALL=TYPON 
::CALL=TYPDS 
;;CALL=ROCHR 
;;CALL=ROLIN 
3; CALL=SAVREG 
;; CALL=RESREG 


7: SAVE RO 

3:;GET TRAP ADDRESS 
;;BACKUP BY 2 

3:GET RIGHT BYTE OF TRAP 
;:POSITION FOR INDEXING 
3; INDEX TO TABLE 

3:G0 TO ROUTINE 


THE ROUTINES CALLED 


TRAP+0(104400) 
TRAP+1(104401) 
TRAP+2(104402) 
TRAP+3(104403) 
TRAP +4 (104404) 
TRAP+5(104405) 
TRAP +6 (104406) 
TRAP+7(104407) 
TRAP+10(104410) 


TTY TYPEOUT ROUTINE 


TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 

TTY TYPEIN CHARACTER ROUTINE 

TTY TYPEIN STRING ROUTINE 

SAVE RO-R5 ROUTINE 

RESTORE RO-R5 ROUTINE 


FRR AERA AAA AEA REAR EAA AEE AEE AREAERRARAEEE 


- SBTTL 


POWER DOWN ROUTINE 
020324 000024 S$PWRDN: MOV 
000340 000026 MOV 


MOV RO,-(SP) 


POWER DOWN AND UP ROUTINES 


#SILLUP ,a#PWRVEC ;;SET FOR FAST UP 
#340 ,a#PWRVEC+2 ;;PRIO:7 


::PUSH RO ON STACK 





SEQ 0055 


TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
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CZKUAD.P11 26-APR-78 17:02 POWER DOWN AND UP ROUTINES SEQ 0056 


020220 010146 R1,-(SP) ss R1 ON STACK 
+s R2 ON STACK 
R3 ON STACK 
R4 ON STACK 
53 R5 ON STACK 
020330 3:SAVE SP 
020250 000024 #SPWRUP ,a#PWRVEC 7:SET UP VECTOR 


020246 000776 a 4 ;;HANG UP 


;POWER UP ROUTINE 
020250 013706 020330 $PWRUP: MOV SSAVR6,SP 3;GET SP 
005037 020330 CLR SSAVR6 7z:WAIT LOOP FOR THE TTY 
005237 020330 1$: SSAVR6 :;WAIT FOR THE INC 
001375 1$ 3:;0F WORD 
012605 (SP)+,R5 3;POP STACK INTO RS 
012604 (SP)+,R4 3:POP STACK INTO R4& 
012603 (SP)+,R3 3;POP STACK INTO R3 
012602 (SP)+,R2 3;POP STACK INTO R2 
012601 (SP)+,R1 3:POP STACK INTO R1 
(SP)+,RO ::POP STACK INTO RO 
020202 000024 #SPWRON,@#PWRVEC ;;SET UP THE POWER DOWN VECTOR 
000340 000026 #340 ,a#PWRVEC+2 ; :PRIO: 7 
: REPORT THE POWER FAILURE 
SPWRMG: . SPOWER 3:POWER FAIL MESSAGE POINTER 


SILLUP: 3; THE POWER UP SEQUENCE WAS STARTED 
:; BEFORE THE POWER DOWN WAS COMPLETE 


SSAVR6: 0 , >:PUT THE SP HERE 
047520 042527 $POWER: .ASCIZ <15><12>"'POWER" 


000122 
- EVEN 
FREER EEE EEE 
ft ft tee ee PPR RRR RRR ASAD RRR RRASRRESASESLE ESSE ASE ESE R SLES SS SO 
FERRARA REE RETA AAEARE RE REREE EEE EAEE EEE AAAERAEAAARARKEREKKKEREEE 
020342 ATEND: 
000001 - END 
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-P11 26-APR-78 17:02 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0057 


002644 611 6204 
- 011074 1090 1093 1096 17624 
001574 465 954 
020342 872 906 935 975 
3 1458 1467 1477 


001604 872+ 906* 935* 
001602 805* 


001610 
001606 


001612 


001600 
001662 


001660 


001620 
001616 
001624 
001622 
001626 
001614 
001666 
001664 
001634 
001632 
001640 
001636 
001642 
001630 
001672 
001670 


1479+ 


—WWO 


nnnhnnnnnuwn 
OM NWEUANCO MNO 


— —» —» —4 —2 —4 -4 —4 -_4 


000400 
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26-APR-78 17:02 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0058 


001000 1654 1882 1944 
1926 
996 1638 1889 


989 1312 1394 1469 1502 


14354 


001700 1039 1220 1289 
1527 1547 1579 


001702 


015330 17884 
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CZKUAD.P11 26-APR-78 17:02 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0059 


015346 


395 17884 


420 425 430 17884 
342 1788# 
17884 


001722 

004730 732 769 870 904 938 9534 979 1133 

010714 

010406 1266 1437 1602 1622a 

000004 734% 937* 1863 1864* 1866* 1869* 2069 2070 2075* 
011140 2118* 2119* 


1434 14384 


etenee 617 673 677 685 1815 1822 
2424 2425 2426 2427 
005320 10344 


INK 006540 12634 
INTRTN 005470 10684 





. 3 
UNIBUS EXERCISER MACY11 30A(1052) O3-MAY-78 14:28 PAGE 56 
CZKUAD.P11 26-APR-78 17:02 CROSS REFERENCE TABLE -~ USER SYMBOLS SEQ 0060 


005402 10494 
10544 
10594 
10644 
529% 530* 
2055 2087 


920 


1778 


000340 764 768 770 801 803 
980 1011 1016 1026 1032 1086 1132 
1310 1450 1457 1475 1576 


813 837 


177776 
177776 835* 841% 869* 903+ 909* 936* 942s 
1011 1037" 1084* 1132* 1177% 1283* 1778+ 
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010342 1139 16064 
0 535* 536* 653* 1136* 1139 2434% 2435% 2443% 2458% 24598 


17884 
15904 


1481* 
2098* 


001136 553 564 659 1168 1858 1872 1874 1882 1889 1926 
000176 


81# 
007344 1284 14104 
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CROSS REFERENCE TABLE -- USER SYMBOLS 


UNIBUS EXERCISER 
CZKUAD.P11 26-APR-78 17:02 


007376 14184 
14254 
14304 


1240 12764 
13984 


937 
24248 
104400 566 5 615 667 671 675 
1928 1936 1961 1978 
2309 2385 2420# 2460 
104401 


24228 


1595 1598 16014 
11464 


001126 526 


683 
1980 


687 
1983 


696 
1985 


704 
1989 


715 
1996 


SEQ 0062 


718 
2032 
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CZKUAD.P11  26-APR=78 17:02 CROSS REFERENCE TABLE -~ USER SYMBOLS SEQ 0063 
SBELL 001214 285# 1928 1952 
SCHARC 017460 2221* 2228 2237 22428 
SCMTAG 001100 2418 = 5.24 531 537 538 539 
SCM1 = 000006 2718 «= 2724 73H 2748 75H = 76H 7TH, 
SCM2 = 000014 2718 = 2728 73H 74H 75H) = 76H 77H: 
SCM3 = 000006 269# = 271 ; 
cm4 = 000006 277# «=. 278# = 79H = 280# = 81H) = B2e 834 
SCORE 017054 2082 «=. 2108# ’ 
SCRLF 001221 2874 «667 715 1936 = 1952,s«d1961=Ss«d1980)=Ss«*1985)Ss«1989 = 2048 )~=— 2211S 2248 
SCROUT 017104 2108 21158 
DBLK 020126 2351 «2385S 2393 
DOAGN 015646 1809 1832 18384 
DTBL 020116 2354 23898 
SENDAD 015636 228 =: 18344 =: 1941 
ENDCT 015502 537, s«418114 
ENULL 015652 1840# 
SEOP 015446 1406 18014 
SEOPCT 015474 537 1808# 1812 
SERFLG 001103 ea 1768 799 833 867 901 1225 1234 1848 1878 1880 1886* 1907 
x 
ERMAX 001115 250# 540 766 799 833 867 901 1225 1234 1880 1902* 1907 
SERROR 016134 531 1922# 
ERRPC 001116 251# 1788 1930 1931* 1932 1952 1967 
SERRTB 001224 305# 1975 
ERRTY 016302 1935 1960 
ERTTL 001112 2484 1824 1828 1929* 1952 
SESCAP 001212 2844 539% 1901* 1947 1949 1952 
SFILLC 001154 267# 2214 =. 2248 
FILLS 001153 266# 2248 
GDADR 001120 2528 
SGDDAT 001124 2544 
SGET42 015626 18298 
SHD = 000001 14 15 
SICNT 001104 245# 1788 1893 1894 1896* 1906 
SILLUP 020324 2434 24634 
SITEMB 001114 249# 1932 1952 1964 
SKTNEX 017046 2083 = 2107 
KTOUT 017036 2099 =. 21044 
SKT11 016702 2081# 2085*  2107% 
LF 001222 2884 1952 2039 2048 2248 
LPADR 001106 246 541% 1884* 1899* 1904 1906 
SLPERR 001110 247# «=—542% 1884 1900" 1906 1946 
SLSTAD 017150 2120* 21274 
SLSTBK 017152 658 2121* 2128 
SMAIL = teeeee U 553 729 762 796 830 864 898 933 972 1011 1082 1125 1168 
1216 1277 1400 1899 1938 2199 
SMXCNT 016132 1897 1906# 
SNULL 001152 265# 1142 1152 1827 2216 2248 
$NWTST= 000001 722 724 752" 754 7884 9 822" B24 8564 «858 890# 892 9248 


790 
926 9634 965 1002# 1004 1074# 1076 11164 1118 1157# 1159 1208# 1210 


SOCNT 017706 2281* 2310* 23234 
SOMODE 017710 2276* 2280* 2285 2288* 2299% 23254 
OVER 016116 1859 1877 1885 1895 19034 
SPASS 001100 242# 1805* 1806* 1817 1840 1891 1907 


SPOWER 020332 1147 2461 24668 
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CZKUAD.P11 26-APR-78 17:02 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0064 


020202 1619 24348 2458 

020320 1152* 24614 

020250 

001220 1 2032 2048 2248 

016436 

eereret 

016472 

Reeeee 

000016 

001156 

001160 51 664 695* 778* 
788 


001162 
001164 
001166 
001170 


167400 


000300 
001210 
001144 
001142 
001174 


001176 
001200 
001202 
001204 1252* 1257* 1262+ 


001206 
000020 834 856 
9 997 999 
1157 1684 
12778 1377 1395 


001150 
001155 
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CZKUAD.P11 26-APR-78 17:02 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0065 


001146 232 2248 

020136 533 

soetee 242358 = 262468 = 425% = 2426 = 24278 = 24284 = 24298 
001102 1848 1876 1898* 1903 1907 1925 1952 
016600 2047# 


kteeee 


22328 


eerere 

020342 226 2278 2298 2318 2404 289 527 541 542 
671 675 683 6864 687 690# 696 699# 
1840 1841# 1906 1907 1952 1999# 2004 20474 


18 
23934 





MACY11 30A(1052) 
26-APR-78 17:02 


UNIBUS EXERCISER 


E 63 
CROSS REFERENCE TABLE -- MACRO NAMES 


1157 


1097 


SEQ 0066 


1208 


1126 





C 6 
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CZKUAD.P11 26-APR-78 17:02 CROSS REFERENCE TABLE -~- MACRO NAMES SEQ 0067 


- SAPTB 


- ABS. 020342 


ERRORS DETECTED: 0 


CZKUAD.BIN,CZKUAD.LST/CRF/SOL/NL : TOC=DSKZ:CZKUAD.SML,DSKZ:CZKUAD.P11 
RUN-TIME: 13 16 1 SECONDS 


RUN-TIME RATIO: 263/31=8.3 
CORE USED: 28K (55 PAGES) 





